Printer Code

[dragul]

i have made it so that a document prints from VB but the text runs of the side of the paper. how do i get is so that it so that when the text gets to the end of the line it goes to the next line keeping all the text visible on the page?

[dafunkymunky]

can you plz post your code so that we can see what exactly you have done....

[dragul]

Code: Select all

Private Sub cmdPrint_Click()
    Printer.Copies = lblCopy

    frmC.lstC.Text = lblP
    frmC.cmdView.Value = True
   
    Printer.FontBold = True
        Printer.FontSize = 30
            Printer.Print "Profile"
        Printer.FontSize = 12
    Printer.FontBold = False
   
    Printer.Print
    Printer.Print
    Printer.Print
    Printer.Print "First Name(s) : "; Tab(20); frmE.txtPD(0); Tab(50); "Address Line1 :"; Tab(70); frmE.txtPD(7)
    Printer.Print "Last Name : "; Tab(20); frmE.txtPD(1); Tab(50); "Address Line2 :"; Tab(70); frmE.txtPD(8)
    Printer.Print "eMail Address : "; Tab(20); frmE.txtPD(2); Tab(50); "Town/City :"; Tab(70); frmE.txtPD(9)
    Printer.Print "Home Tel. : "; Tab(20); frmE.txtPD(3); Tab(50); "County/State :"; Tab(70); frmE.txtPD(10)
    Printer.Print "Mobile Tel. : "; Tab(20); frmE.txtPD(4); Tab(50); "Post Code :"; Tab(70); frmE.txtPD(11)
    Printer.Print "Work Tel. : "; Tab(20); frmE.txtPD(5); Tab(50); "Country :"; Tab(70); frmE.txtPD(12)
    Printer.Print
   
    Printer.FontBold = True
        Printer.Print "Personnal Notes :"
    Printer.FontBold = False
   
    Printer.Print frmE.txtPD(13)
   
    Printer.EndDoc
   
    frmP.SetFocus
   
End Sub


The contents of frmE.txtPD(13) a multiline text field overflows the a4 page when printed, i would like it to wordwrap to the page. How do i do this?

[dafunkymunky]

i'll check this code and will get back if can find a solution...

[dragul]

Thanks for the help