取消报告打印后如何抑制错误消息?

Question

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

我用过DoCmd.SetWarnings (False)但没有抑制此错误。

我该怎么办？

Answer 1

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

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