使用Excel对象调用打印对话框，仍仅打印至默认打印机

我之前处理过好几个类似的Excel自动化打印问题，你的情况核心问题是没有把用户在打印对话框中选择的打印机绑定到目标工作表的打印设置上——默认情况下，Excel的打印对话框只是临时弹出让用户选择，但不会自动把这个选择同步到工作表的PageSetup配置里，所以后续调用打印时还是会用默认/上次的打印机。

下面是具体的解决步骤和代码示例（假设你用的是VBA开发，这是Excel应用最常用的开发方式）：

核心解决思路 #

1. 弹出打印对话框让用户选择打印机，捕获用户的选择结果
2. 将选中的打印机明确设置到要打印的工作表的打印配置中
3. 执行打印操作，确保使用用户选择的打印机
4. 继续完成清除机密、保存的后续流程

代码实现示例 #

Sub ProcessExcelWorkflow()
    Dim selectedPrinter As String
    Dim printDlg As Dialog
    
    ' --- 1. 弹出打印对话框并捕获用户选择 ---
    Set printDlg = Application.Dialogs(xlDialogPrint)
    ' Show方法返回True表示用户点击了确定，False表示取消
    If printDlg.Show = True Then
        ' 获取用户选中的打印机名称
        selectedPrinter = Application.ActivePrinter
        ' 将选中的打印机绑定到当前工作表的打印设置
        ActiveSheet.PageSetup.PrinterName = selectedPrinter
        ' 执行打印，此时会使用用户选择的打印机
        ActiveSheet.PrintOut
    Else
        ' 用户取消打印，可添加自定义提示或退出流程
        MsgBox "打印操作已取消，后续流程终止"
        Exit Sub
    End If
    
    ' --- 2. 清除特定机密信息（替换为你的实际逻辑） ---
    ' 示例：清除A列第5行到第20行的内容
    ' Range("A5:A20").ClearContents
    ' 或者删除特定命名范围的内容
    ' ThisWorkbook.Names("ConfidentialData").RefersToRange.ClearContents
    
    ' --- 3. 保存文件（严格遵循先打印后保存的要求） ---
    ThisWorkbook.Save
End Sub

关键细节说明 #

• 为什么要设置PageSetup.PrinterName？：Excel的打印对话框只是临时交互，不会自动持久化用户的打印机选择到工作表配置。手动设置这个属性后，后续的PrintOut才会优先使用用户选择的打印机。
• 关于Application.ActivePrinter：这个属性会在用户通过打印对话框选择打印机后自动更新为选中的打印机名称，所以可以直接获取使用。
• 兼容性提示：不同Windows版本下打印机名称的格式可能略有差异，但Excel会自动处理这些差异，直接使用ActivePrinter返回的字符串即可。

如果你的应用是用其他语言（比如C#/VB.NET的Office Interop）开发的，核心逻辑也是一样的：先弹出打印对话框，获取选中的打印机名称，设置工作表的PageSetup.PrinterName，再执行打印。

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