Show Bid Request Printing Problems Bid Request Id: 6263 Bookmark in my 'To Do' list Posted by: Craig Jones (4 ratings) (Software buyer rating 7.75) Non-action Ratio: Above Average - 46.15% Buyer Security Verifications: Unverified Approved on: Dec 9, 2001 6:06:58 PM EDT Bidding Closes: Dec 23, 2001 6:07:35 PM EDT Viewed (by coders): 551 times Phase: 100% of work was accepted by buyer. Coder account has been credited. Max Accepted Bid: Bidding is closed Project Type: Very Small Business Project: under $100 (USD) Bidding Type: Open Auction Categories: Visual Basic Enter chat room for this bid request (0 active users at Sep 1, 2003 8:18:19 AM EDT) Description: HI I need some help with the below code I am trying to send the typed information straight to the print for it to print of in any type of word format that the user has it been done in visual basic 6 and I keep getting access denied I hope some one can help Private Sub lblnext_Click(Index As Integer) Dim I As Integer, retval As Long, csp As Integer, cep As Integer Dim fs 'todo can only load this from runtime version 'rtb1.LoadFile "blankquote.rtf", rtfRTF 'todo can only load this from development version 'rtb1.LoadFile "c:\blankquote.rtf", rtfRTF ' Set fs = CreateObject("Scripting.FileSystemObject") ' Set a = fs.CreateTextFile("c:\testfile.txt", True) ' a.WriteLine ("This is a test.") ' a.Close Set fs = CreateObject("Scripting.FileSystemObject") 'Set a = fs.CreateTextFile("c:\testfile.txt", True) 'a.WriteLine ("This is a test.") 'a.Close 'todoruntime remove c:\ in front of file names fs.CopyFile "blankquote.rtf", "c:quotation.rtf" Open "c:\quotation.rtf" For Append As #1 Print #1, Print #1, "\par \pard \qc {\b\fs32 Quotation Letter}" Print #1, ' 'below did not work for me. ' '3 is append mode, 0 is TristateFalse which Opens the file as ASCII. ' Set f = fs.OpenTextFile("c:\quotation.rtf", 3, 0) ' f.write "\par \pard \qc " & "Quotation Letter" & vbCrLf & vbCrLf ' For I = 0 To 1 ' f.write lbldetails(I) & " " & text1(I).Text & vbCrLf ' Next I ' f.write "}" For I = 0 To 1 Print #1, "\par \pard " & lbldetails(I) & " " & text1(I).Text & vbCrLf Next I Print #1, "\par " Print #1, "\par _____________________________________________________________________" Print #1, "\par \pard {\ul\b\fs32 APR (Variable): \~}" Print #1, "\par " Print #1, "\par " Print #1, "\par \pard Interest Rate \tab \tab " & _ frmQuotation.Label1(10) & _ " \tab \tab \tab Valuation Fee \tab \tab " & _ frmMortgageFees.txtfee(0).Text Print #1, "\par Initial Monthly Payment \tab " & _ frmQuotation.Label1(12) & _ " \tab \tab \tab Booking Fee \tab \tab \tab " & _ frmMortgageFees.txtfee(2).Text Print #1, "\par Advance \tab \tab \tab " & _ frmQuotation.Label1(9) & _ " \tab \tab Arrangement Fee \tab \tab " & _ frmMortgageFees.txtfee(1).Text Print #1, "\par Cashback \tab \tab \tab " & _ frmOtherInfo.t Deliverables: Complete and fully-functional working program(s) in executable form as well as complete source code of all work done. Complete copyrights to all work purchased. Remember that contacting the other party outside of the site (by email, phone, etc.) on all business projects < $500 (before the buyer's money is escrowed) is a violation of both the software buyer and seller agreements. We monitor all site activity for such violations and can instantly expel transgressers on the spot, so we thank you in advance for your cooperation. If you notice a violation please help out the site and report it. Thanks for your help.   Bidding/Comments: All monetary amounts on the site are in United States dollars. Rent a Coder is a closed auction, so coders can only see their own bids and comments. Buyers can view every posting made on their bid requests. See all rejected bids (and all comments) Name   Bid Amount    Date   Coder Rating   This bid was accepted by the buyer! John "Dead" Doe (1 ratings) in Subang Jaya, Selangor Malaysia Bid id: 67,979   $8 (USD) Dec 10, 2001 12:14:57 PM EDT  10 (Excellent)     There appear to be some small errors in the code but I can't quite debug the code as I need the project file.