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