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