多个excel工作表到PDF

Question

全部，

我有以下代码，它复制excel中的多个工作表并将它们导出到PDF工作表。每个PDF页面有一个工作表，我想知道是否可以在一个PDF页面上有两个工作表，因为当前的VBA代码在PDF文件中留下了很多空格。

**在每个工作表上，我设置的打印区域不是变量，所以我假设有一个代码可以复制选定工作表上的打印区域，这样可以完美地工作。

Sub print_test()

 Dim strPath As String, strFileName As String

 ThisWorkbook.Sheets(Array("Metadata", "BC on a page", "Approvals", "RMIB")).Select
 'Select file save location
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show
 If .SelectedItems.Count > 0 Then
 strPath = .SelectedItems(1)
 End If
 End With
 strFileName = InputBox("Please input filename", "Filename")
 strPath = strPath & "\"
 strFileName = strFileName & ".pdf"

 ActiveSheet.ExportAsFixedFormat _
 Type:=xlTypePDF, _
 Filename:=strPath & strFileName, _
 IgnorePrintAreas:=False

 Sheets("Metadata").Select
 End Sub