Private Sub mnu_DatenDrucken_Click()
Dim Drucker As String
 
    Drucker = Printer.DeviceName
    On Error Resume Next
    With CommonDialog1
        .CancelError = False
 
        .ShowPrinter
        If err.Number = 0 Then
 
            g_strDrucker = Printer.DeviceName         
            Printer.Print
 
            With rtb  
                .SelStart = 0
                .SelLength = Len(.Text)
                .SelIndent = Printer.ScaleX(20, vbMillimeters, _
                        Printer.ScaleMode) 
                .SelRightIndent = Printer.ScaleX(15, vbMillimeters, _
                                 Printer.ScaleMode)  
                .SelPrint Printer.hDC, False 
                .SelIndent = 0
                .SelRightIndent = 0
            End With
            Printer.Orientation = cdlLandscape
            Printer.EndDoc
 
        End If
     End With
 
     fSet_DefaultPrinter Drucker
 
 
Exit Sub
err:
 
End Sub

Wer aufhört sich zu verbessern, hört auf gut zu sein.