Excel VBA：如何在打印对话框关闭后执行取消隐藏行列的操作？

嘿，我来帮你搞定这个问题～你遇到的核心问题是Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")这个方法是非阻塞的——也就是说，代码不会等待打印对话框关闭，而是直接继续执行后面的语句，所以才会出现消息框盖在打印对话框上的情况。

要实现等打印对话框彻底关闭后，再执行取消隐藏行/列的操作，有两种非常靠谱的方案：

方案一：用Excel原生的模态打印对话框（最简单） #

Excel自带的xlDialogPrint对话框是模态的，会暂停代码执行，直到用户关闭对话框（不管是点了打印还是取消）。把你的代码换成下面这样就行：

newPlan.Sheets("Single_Plan").Activate
' 弹出打印对话框，直到用户操作完才继续往下走
Application.Dialogs(xlDialogPrint).Show
' 这里替换成你取消隐藏行和列的代码
MsgBox ("Print Complete") ' 这行是测试用的，实际换成你的取消隐藏逻辑

这个方法的好处是完全用Excel原生功能，不需要额外的复杂代码，上手零难度。

方案二：用API监听对话框关闭（适合非要用ExecuteMso的场景） #

如果你坚持要使用ExecuteMso调用那个打印预览+打印的对话框，可以通过Windows API来等待对话框窗口关闭。代码如下：

' 64位Excel兼容的API声明
Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Declare PtrSafe Function WaitForSingleObject Lib "kernel32" (ByVal hHandle As LongPtr, ByVal dwMilliseconds As Long) As Long
Declare PtrSafe Function GetWindowThreadProcessId Lib "user32" (ByVal hWnd As LongPtr, lpdwProcessId As Long) As Long
Declare PtrSafe Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As LongPtr

Sub PrintAndRestore()
    Dim printWnd As LongPtr
    Dim processId As Long
    Dim hProcess As LongPtr
    
    newPlan.Sheets("Single_Plan").Activate
    ' 调用打印对话框
    Application.CommandBars.ExecuteMso ("PrintPreviewAndPrint")
    
    ' 查找打印对话框窗口（注意：中文Excel的话，窗口标题是"打印"，英文是"Print"）
    printWnd = FindWindow(vbNullString, "打印")
    If printWnd <> 0 Then
        ' 获取对话框所属的进程ID
        GetWindowThreadProcessId printWnd, processId
        ' 打开进程获取句柄
        hProcess = OpenProcess(&H100000, False, processId)
        ' 无限等待对话框关闭
        WaitForSingleObject hProcess, -1
    End If
    
    ' 对话框关闭后，执行取消隐藏操作
    MsgBox ("Print Complete")
End Sub

注意：这个方案需要根据你的Excel语言版本调整窗口标题（比如英文版本要改成"Print"），而且要确保API声明和你的Excel位数匹配（上面的代码是64位兼容的，32位的话去掉PtrSafe就行）。

额外小建议 #

不管用哪种方案，建议你把隐藏行/列和取消隐藏行/列的逻辑单独封装成子过程，这样代码更整洁，以后改隐藏范围也方便：

' 隐藏指定行和列
Sub HideTargetRowsColumns()
    With newPlan.Sheets("Single_Plan")
        .Rows("5:10").Hidden = True ' 替换成你要隐藏的行
        .Columns("C:F").Hidden = True ' 替换成你要隐藏的列
    End With
End Sub

' 取消所有行和列的隐藏
Sub UnhideAllRowsColumns()
    With newPlan.Sheets("Single_Plan")
        .Rows.Hidden = False
        .Columns.Hidden = False
    End With
End Sub

然后主流程就可以写成这样，一目了然：

Sub MainPrintWorkflow()
    ' 先隐藏需要隐藏的内容
    HideTargetRowsColumns
    ' 切换到目标工作表并打开打印对话框
    newPlan.Sheets("Single_Plan").Activate
    Application.Dialogs(xlDialogPrint).Show
    ' 对话框关闭后，恢复显示所有行和列
    UnhideAllRowsColumns
End Sub

这样整个流程清晰明了，维护起来也省心～

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