Vba 取消报表打印后如何抑制错误消息？

我使用DoCmd.RunCommand acCmdPrint打印报告。如果我打印报告，好的。但是如果我取消，Access将显示错误并停止运行按钮代码

我使用DoCmd.SetWarnings False，但不抑制此错误

---

我该怎么办？

您需要检查错误处理程序中的错误代码，如果操作被取消，请忽略它

Option Explicit

Sub Something()
    On Error GoTo Trap

    'DoCmd...

Leave:
    On Error GoTo 0
    Exit Sub

Trap:
    If Err.Number <> 2501 Then MsgBox Err.Description, vbCritical
    Resume Leave
End Sub