Private Sub mnuDruck_Click()
 
    On Error GoTo DRUCK_ABBRUCH
 
    CommonDialog1.CancelError = True
 
       CommonDialog1.ShowPrinter
 
    Printer.TrackDefault = True
    Printer.TrackDefault = False
 
    Me.PrintForm
 
    Exit Sub
 
DRUCK_ABBRUCH:
    If Err = cdlCancel Then
        MsgBox "Druckvorgang abgebrochen.", vbInformation, "Hinweis"
    End If
 
End Sub