简单打印 Excel 宏的错误处理答案

【问题标题】：Error handling on a simple Print Excel Macro简单打印 Excel 宏的错误处理
【发布时间】：2016-06-15 12:03:06
【问题描述】：

抱歉 - 只是想在我正在处理的 Excel 中掌握简单的 VBA。我有一个与控制按钮相关的最简单的宏：

Sub Printx()
    Application.Dialogs(xlDialogPrint).Show
End Sub

这对于我需要它做的事情来说很好。如果我在结果对话框上单击取消，我正在努力处理错误。似乎无法克服运行时 1004 错误。我已经尝试了几条 goto 行，但仍然得到相同的运行时错误。有人可以指出我哪里出错了。

【问题讨论】：

标签： excel vba macros

【解决方案1】：

试试

     Sub Printx()      
      Dim x As Variant
      x = Application.Dialogs(xlDialogPrint).Show
      If TypeName(x) = "Boolean" Then Exit Sub
      End Sub

【讨论】：

感谢您的快速回复。我试过一些非常相似的东西。仍然收到 1004 错误“对象 'Dialog' 的方法 'Show' failed”。
奇怪！！你能把弹出的对话框的图片贴出来吗
嗨 Neelish，消息说：运行时错误“1004”：对象“对话”的“显示”方法失败
我的意思是 xldialogprint.show 的对话框不是错误信息

【解决方案2】：

您只需要在调用之前添加简单的恢复错误处理：

Sub Printx()

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

End Sub

【讨论】：