' Imprimir un RichTextBox tal y como se ve:

Private Sub Command1_Click()
    On Error GoTo ErrorDeImpresion
    Printer.Print ""
    RichTextBox1.SelPrint Printer.hDC
    Printer.EndDoc
    Exit Sub
ErrorDeImpresion:
    Exit Sub
End Sub