如何修复VBA打印对话框点击取消报错？实现取消按钮退出Sub过程

嘿，这个问题我之前也踩过坑！其实xlDialogPrint对话框本身会返回一个布尔值——用户点「确定」时返回True，点「取消」时返回False，但直接用.Show的话，取消操作会触发运行时错误，我们只需要捕获这个返回值，就能优雅地处理取消场景啦。

修改后的代码有两种写法，都能解决问题：

写法一：显式捕获结果（更清晰） #

Sub printbox()
    Dim userChoice As Boolean
    
    ' 弹出打印对话框，把用户的选择结果存到变量里
    userChoice = Application.Dialogs(xlDialogPrint).Show
    
    ' 如果用户点了取消，直接退出子过程，避免报错
    If Not userChoice Then
        Exit Sub
    End If
    
    ' 这里可以加打印完成后的额外操作（如果需要的话）
End Sub

写法二：简洁版（一行判断） #

如果不需要额外变量，也可以直接把判断写在一行：

Sub printbox()
    ' 若用户取消对话框，直接退出
    If Not Application.Dialogs(xlDialogPrint).Show Then
        Exit Sub
    End If
    
    ' 后续逻辑（可选）
End Sub

为啥原来的代码会报错？ #

默认情况下，用户取消xlDialogPrint对话框时，VBA会抛出运行时错误1004（提示“打印被取消”）。通过捕获对话框的返回值，我们提前拦截了这个错误触发的路径，让取消操作变成正常退出，不会再弹错误窗口啦。

内容的提问来源于stack exchange，提问作者gz5823