reeves122

Hello everyone
Ive been working on this for a while now and ive had no luck. Im going to try to explain what i want to do to make it easier to help so bear with me please. Thanks. I want to print 6 text boxes in order on the printer with the printer dilog so the user can select a printer and such. The only problem is the text boxes have to be word wrapped (when printing) and I cant seem to figure out how to get 6 text boxes with word wrap to look good. Ive tried microsofts thread on richtextboxes but it will only print one box. This is what i have right now

On Error GoTo HellandBack



With CommonDialog1
.CancelError = True
.ShowPrinter

Printer.FontSize = 16
Printer.FontBold = True
Printer.Print "NAME:"
Printer.FontBold = False
Printer.Print nametxt.Text

Printer.Print ""

Printer.FontBold = True
Printer.Print "DATE:"
Printer.FontBold = False
Printer.Print datetxt.Text

Printer.Print ""

Printer.FontBold = True
Printer.Print Label5
Printer.FontBold = False
PrintRTF RichTextBox1, AnInch, AnInch, AnInch, AnInch

Printer.FontBold = True
Printer.Print Label6
Printer.FontBold = False
PrintRTF RichTextBox2, AnInch, AnInch, AnInch, AnInch

End With

Printer.EndDoc

HellandBack:
If Err.Number = cdlCancel Then Printer.KillDoc 'checks that the error was the one from the print dialog, then kills it


End Sub




Thanks so very much for any help as this is a school project and I need it tomorrow!