VBA将多个工作表中的同一区域打印为单独的PDF文件

VBA（Visual Basic for Applications）是一种基于Microsoft Visual Basic的宏语言，用于在Microsoft Office应用程序中进行自动化和定制。在Excel中，可以使用VBA来实现将多个工作表中的同一区域打印为单独的PDF文件。

首先，我们需要编写一个VBA宏来实现这个功能。以下是一个示例代码：

Sub ExportWorksheetsToPDF()
    Dim ws As Worksheet
    Dim savePath As String
    
    ' 设置保存PDF文件的路径
    savePath = "C:\PDFs\"
    
    ' 循环遍历所有工作表
    For Each ws In ThisWorkbook.Worksheets
        ' 设置打印区域为A1到G10（根据实际需求修改）
        ws.PageSetup.PrintArea = "A1:G10"
        
        ' 创建一个新的工作簿，将当前工作表复制到新工作簿中
        ws.Copy
        With ActiveSheet
            ' 移除新工作簿中的其他工作表
            Application.DisplayAlerts = False
            Do Until .Parent.Worksheets.Count = 1
                .Parent.Worksheets(2).Delete
            Loop
            Application.DisplayAlerts = True
            
            ' 保存为PDF文件
            .ExportAsFixedFormat Type:=xlTypePDF, Filename:=savePath & ws.Name & ".pdf"
            
            ' 关闭新工作簿，不保存更改
            .Parent.Close SaveChanges:=False
        End With
    Next ws
End Sub

上述代码中，我们首先设置了保存PDF文件的路径（savePath），然后使用For Each循环遍历所有工作表。在循环中，我们设置了打印区域为A1到G10（根据实际需求修改），然后创建一个新的工作簿，并将当前工作表复制到新工作簿中。接下来，我们移除了新工作簿中的其他工作表，只保留当前工作表。然后，将新工作簿保存为PDF文件，文件名为当前工作表的名称。最后，关闭新工作簿，不保存更改。

要使用这个VBA宏，可以按下Alt + F11打开Visual Basic编辑器，在左侧的项目资源管理器中找到你的工作簿，右键单击该工作簿，选择插入->模块，然后将上述代码粘贴到模块中。保存并关闭编辑器。现在，你可以按下Alt + F8打开宏对话框，选择ExportWorksheetsToPDF宏并运行它。这将在指定的路径下创建单独的PDF文件，每个文件对应一个工作表。

这个功能可以在以下场景中使用：