Error Handler for acCmdPrint

[silentwolf]

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 gewünscht
    
    DoEvents

    If MsgBox("Print", vbYesNo) = vbYes Then
            DoCmd.RunCommand acCmdPrint 'Printdialog
    Else
        DoCmd.Close acReport, stDocName
    End If

End Sub

could someone let me know how I can use the error handler when I cancel the printdialog.

Many thanks

Albert

 

[welshgasman]

You could just use Resume Next

Private Sub cmdPrint_Click()
    On Error Resume Next
    Dim stDocName As String

else
put in an error label to go to and test for err.number = 2501

 

[silentwolf]

HI,
thanks I will try that.

Will get back to you