Print RichTextBox

The following code will print RichTextBox formatted text.
It won't print any pictures that found inside the RichTextBox.

Preparations

Add 1 Command Button and 1 RichTextBox to your form (From VB menu choose
Project -> Components..., mark the "Microsoft Rich TextBox Control X.0" check box,
and press OK.

Form Code

Private Sub Command1_Click()
    Call RichTextBox1.SelPrint(Printer.hdc)
End Sub

Go Back