Hi guys,
just wondering for a error handler so I can cancel the print dialog .
Private Sub cmdRptStunden_Click()
Dim stDocName As String
stDocName = "rptObjektStunden"
DoCmd.OpenReport stDocName, acPreview
DoEvents
DoCmd.RunCommand acCmdZoom100 '100% einstellen, falls...