Excel打印宏

我正在使用以下宏从Excel文件打印

Sub PrintPDF()

bTemp = Application.Dialogs(xlDialogPrint).Show

End Sub

用户打印时工作正常，但当用户在打印对话框中单击“取消”时，会抛出以下错误：

---

是否有一行代码可以添加到宏中以防止用户单击“取消”时出现此错误？

添加此代码可修复此错误：

On Error Resume Next

完整宏：

Sub PrintPDF()

On Error Resume Next
bTemp = Application.Dialogs(xlDialogPrint).Show

End Sub

---

我不能重现你的错误。这正是您拥有的还是您代码的一部分？@Masoud这是我在打印宏中使用的唯一一行代码。在Excel 2016 for Mac上运行。在此行后添加

Exit Sub

。这是一个非常幼稚的建议，但不妨试一试。您是否尝试在Sub-PrintPDF（）之后添加错误恢复？

Sub PrintPDF()

On Error Resume Next
bTemp = Application.Dialogs(xlDialogPrint).Show

End Sub