Excel打印宏

Question

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

Sub PrintPDF()

bTemp = Application.Dialogs(xlDialogPrint).Show

End Sub

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

Run-time error '1004':
Method 'Show' of object 'Dialog' failed

当用户点击取消时，是否有一行代码可以添加到我的宏中以防止出现此错误？

Answer 1

添加此代码可修复错误：

On Error Resume Next

完整宏：

Sub PrintPDF()

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

End Sub