VBA实现多工作表打印内容合并导出至PDF同一页的技术问询

由于无法将两个表格合并到同一工作表，可通过临时工作表中转的方式实现连续打印，核心思路是把两个工作表的打印区域内容按顺序复制到临时表，再导出该临时表为PDF，具体代码如下：

Sub ExportTablesToSinglePDFPage()
    Dim fname As String, fpath As String
    Dim tempSheet As Worksheet
    Dim printArea1 As Range, printArea2 As Range
    Dim lastRow As Long
    
    ' 设置导出路径和文件名
    fpath = "C:\"
    fname = "export.pdf"
    
    ' 创建临时工作表
    Set tempSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    tempSheet.Name = "TempPrintSheet"
    
    ' 定义两个工作表的打印区域
    Set printArea1 = Sheet1.Range(Sheet1.PageSetup.PrintArea)
    Set printArea2 = Sheet2.Range(Sheet2.PageSetup.PrintArea)
    
    ' 复制第一个打印区域到临时表，保留格式和列宽
    printArea1.Copy
    tempSheet.Range("A1").PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    tempSheet.Range("A1").PasteSpecial Paste:=xlPasteColumnWidths
    
    ' 计算第一个打印区域的最后行，确定第二个表格的起始位置（+2为表格间空白行，可按需调整）
    lastRow = tempSheet.Cells(tempSheet.Rows.Count, "A").End(xlUp).Row + 2
    
    ' 复制第二个打印区域到临时表指定位置
    printArea2.Copy
    tempSheet.Range("A" & lastRow).PasteSpecial Paste:=xlPasteAllUsingSourceTheme
    tempSheet.Range("A" & lastRow).PasteSpecial Paste:=xlPasteColumnWidths
    
    ' 设置临时表的打印区域为两个表格的整体范围
    tempSheet.PageSetup.PrintArea = tempSheet.Range("A1", tempSheet.Cells(tempSheet.Rows.Count, printArea1.Columns.Count).End(xlUp)).Address
    
    ' 导出为PDF
    tempSheet.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=fpath & fname, _
        Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
    
    ' 删除临时工作表，关闭确认提示
    Application.DisplayAlerts = False
    tempSheet.Delete
    Application.DisplayAlerts = True
    
    ' 清除剪贴板
    Application.CutCopyMode = False
End Sub

关键说明 #

• 临时工作表自动创建并在导出完成后删除，不会修改原工作簿的结构和数据
• 复制时保留原表格的格式、列宽，确保导出效果和原表格一致
• 表格间的空白行可通过修改+2的数值调整，设为0则无空白直接接续

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