How do i print the text in a textbox??

[Libero]

Is there some simple way to print out the contents in a textbox. I only know hard ways.

[LAURENS]

If you don't mind using a RichtTextBox it simply is

Private Sub Command1_Click()

RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1)
RichTextBox1.SelPrint (Printer.hDC)

End Sub

For a textbox you could use something like

Private Sub Command2_Click()

Printer.Print Text1
Printer.EndDoc

End Sub


[Edited by LAURENS on 06-15-2000 at 09:22 AM]