On Error Resume Next
 
With frmRechner.dlgcommondialog
    .DialogTitle = "Druckerauswahl"
    .CancelError = True                'Laufzeitfehlerunterdrückung
    .Flags = cdlPDReturnDC + cdlPDNoPageNums   'Keine Seitenzahlen
    .ShowPrinter          'Dialog
    If Err <> mscomdlg.cdlCancel Then
        'frmRechner.lblAUFGABEN.Caption.selprint .hDC
    frmRechner.rtbAUFGABEN.SelPrint .hDC 'Das ist die Auswahl dessen, was 
    ' gedruckt
                                       'wird
    End If
End With