excel vba 打印两个工作表到一个PDF文件

在Excel VBA中，你可以使用ActiveX Data Objects (ADO) 和 Adobe Acrobat SDK 来将两个工作表合并并打印到PDF文件。以下是一个简单的步骤和示例代码：

1. 首先，确保你的计算机上安装了Adobe Acrobat Reader DC（用于创建PDF），以及Office的VBA支持。

2. 安装ADO控件：在VBA编辑器中，转到“工具” > “引用...”，然后查找Microsoft ActiveX Data Objects 6.0 Library，勾选它并确定。

3. 使用以下代码作为基础：

Sub PrintTwoSheetsToPDF()
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim pdfDoc As Object ' ADO对象用于操作PDF
    Dim rngData As Range
    
    ' 设置工作表对象
    Set ws1 = ThisWorkbook.Sheets("Sheet1") ' 更改为实际的工作表名称
    Set ws2 = ThisWorkbook.Sheets("Sheet2")
    
    ' 初始化PDF对象
    Set pdfDoc = CreateObject("AcroExch.PDDoc")
    
    ' 打开第一个工作表并添加到PDF
    With ws1
        Set rngData = .UsedRange ' 或者指定特定区域
        pdfDoc.Open "C:\Temp\Output.pdf", , True ' 输出路径和创建新文档
        pdfDoc.AddPageFromWorksheet .ChartSheet ' 如果有图表页，可以添加
        pdfDoc.PrintOut .Left, .Top, .Width, .Height, False, True, rngData ' 打印到PDF
    End With
    
    ' 同样的过程对第二个工作表进行
    '...
    
    ' 关闭PDF文档
    pdfDoc.Close SaveChanges:=True
    
    ' 清理对象
    Set pdfDoc = Nothing
End Sub

4. 将上面的代码复制到VBA编辑器中，记得修改`"Sheet1"`和`"Sheet2"`为你想要合并的两个工作表的实际名称。

5. 运行这个宏，它会创建一个新的PDF文件并将指定的工作表内容打印进去。