如何将Excel多个分页打印输出合并为同一个PDF文件

问题根因 #

你当前代码每次调用PrintOut方法都会生成独立的打印任务，Microsoft Print to PDF驱动对每个独立任务都会输出单独的PDF文件，多次调用自然生成多个文件，无法自动合并。同时硬编码PDF打印机端口的写法兼容性很差，换设备大概率运行报错。

解决方案 #

使用Excel原生的ExportAsFixedFormat方法，先拼接需要打印的页码范围，单次调用即可导出为单个PDF，无需配置打印机，兼容性更强：

Sub PrintToSinglePDF()
    Dim ws As Worksheet
    Dim savePath As Variant
    
    Set ws = ThisWorkbook.Worksheets("Anexo Financeiro")
    
    ' 配置打印范围：先隐藏不需要打印的页
    ws.Rows("5:5").EntireRow.Hidden = (ws.Range("P205") <> 1)
    ws.Rows("6:6").EntireRow.Hidden = (ws.Range("N272") <> 1)
    
    ' 让用户选择PDF保存路径
    savePath = Application.GetSaveAsFilename( _
        FileFilter:="PDF 文件 (*.pdf), *.pdf", _
        Title:="选择PDF保存位置")
    
    If savePath <> False Then
        ' 一次性导出为单个PDF
        ws.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=savePath, _
            Quality:=xlQualityStandard, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
    End If
    
    ' 恢复行显示状态
    ws.Rows("5:6").EntireRow.Hidden = False
End Sub

代码说明 #

• 仅触发一次导出操作，只会生成1个PDF文件
• 自动根据P205、N272的数值判断是否打印第5、6页
• 移除了硬编码的打印机配置，所有支持PDF导出的Excel版本都可以正常运行
• 如果需要保留原有打印逻辑，只需调整为单次调用PrintOut方法即可，不要拆分多次打印任务

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