如何用Excel宏将多次填充打印的工作表合并为单个打印任务？

有两种可靠的方法可以实现将多次打印操作合并为单个任务，尤其能解决打印到文件时重复设置文件名的问题：

方法一：通过临时汇总工作表统一打印 #

核心思路是先把所有需要打印的内容汇总到一个临时工作表，最后一次性打印该工作表，从根源上避免多次生成独立打印任务。

实现代码 #

Sub BatchPrintWithSummarySheet()
    Dim wsData As Worksheet, wsSummary As Worksheet
    Dim lastSummaryRow As Long
    Dim groupCount As Integer, currentGroup As Integer
    
    ' 指定你的数据工作表
    Set wsData = ThisWorkbook.Worksheets("DataSheet")
    ' 创建或获取临时汇总表
    On Error Resume Next
    Set wsSummary = ThisWorkbook.Worksheets("PrintSummary")
    On Error GoTo 0
    
    If wsSummary Is Nothing Then
        Set wsSummary = ThisWorkbook.Worksheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        wsSummary.Name = "PrintSummary"
    Else
        wsSummary.Cells.Clear ' 清空旧内容
    End If
    
    groupCount = 5 ' 替换为你的实际数据组数
    For currentGroup = 1 To groupCount
        ' --- 这里替换成你的数据填充逻辑 ---
        wsData.Range("A1:C10").Value = "第" & currentGroup & "组打印内容"
        
        ' 复制当前组打印区域到汇总表
        wsData.UsedRange.Copy
        lastSummaryRow = wsSummary.Cells(wsSummary.Rows.Count, "A").End(xlUp).Row + 1
        wsSummary.Cells(lastSummaryRow, "A").PasteSpecial xlPasteAll
        
        ' 添加分页符，确保每组内容单独占一页
        wsSummary.HPageBreaks.Add Before:=wsSummary.Rows(lastSummaryRow)
    Next currentGroup
    
    ' 一次性打印汇总表
    wsSummary.PrintOut
    
    ' 可选：打印完成后删除临时表
    ' Application.DisplayAlerts = False
    ' wsSummary.Delete
    ' Application.DisplayAlerts = True
End Sub

方法二：直接通过PrintOut参数合并打印到文件 #

如果不需要保留汇总内容，可直接利用PrintOut的Append参数，将多组打印内容追加到同一个输出文件中，无需重复设置文件名。

实现代码 #

Sub BatchPrintToSingleFile()
    Dim wsData As Worksheet
    Dim groupCount As Integer, currentGroup As Integer
    Dim outputPath As String
    
    Set wsData = ThisWorkbook.Worksheets("DataSheet")
    outputPath = "D:\PrintOutput\BatchResult.pdf" ' 替换为你的目标文件路径
    
    groupCount = 5 ' 替换为实际数据组数
    For currentGroup = 1 To groupCount
        ' --- 替换为你的数据填充逻辑 ---
        wsData.Range("A1:C10").Value = "第" & currentGroup & "组打印内容"
        
        ' 打印到文件，第一组创建文件，后续组追加
        wsData.PrintOut _
            FileName:=outputPath, _
            PrintToFile:=True, _
            Append:=currentGroup > 1 ' 从第二组开始启用追加模式
    Next currentGroup
End Sub

注意事项 #

• 若打印到物理打印机，汇总工作表的方法兼容性更强，不同打印机驱动对打印队列的合并逻辑差异较大；
• Append参数适用于Excel 2010及以上版本，打印到PDF时效果稳定；
• 使用临时汇总表时，需根据实际打印区域调整分页符位置，避免内容跨页混乱。

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