Question

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

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

对于我需要做的事情来说，这很好。如果我在结果对话框上单击取消，我就会在错误处理方面遇到困难。似乎无法通过运行时1004错误。我已经尝试了几个转到行，但仍然得到相同的运行时错误。有人可以指出我出错的地方。

Answer 1

尝试

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

Answer 2

您只需要在进行呼叫之前添加简单的恢复错误处理即可：

Sub Printx()

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

End Sub

在简单的打印Excel宏上处理错误

2 个答案: