With CommonDialogPrint
            .CancelError = True
            'Dialogfeld Drucken anzeigen
            .ShowPrinter
            If Err.Number = 0 Then
                'vom Benutzer ausgewählte Werte vom Dialogfeld abrufen
                BeginPage = .FromPage
                EndPage = .ToPage
                NumCopies = .Copies
                Printer.Orientation = .Orientation
                RichTextBox.Height = Printer.ScaleHeight
                RichTextBox.Width = Printer.ScaleWidth
                For i = 1 To NumCopies
                    'hier gegebenenfalls Schriftart, Schriftgröße, etc. vorgeben
                    RichTextBox.SelPrint (Printer.hDC)
                    Printer.EndDoc
                Next i
            End If
        End With