这种保存方式必须在Excel PageSetup设置中处理，但它确实提供了这种可能性仅每张工作表。因此，您应该使用一个技巧，将讨论中的两个表复制到一个临时工作表中，将PageSetup.FitToPagesTall和FitToPagesWide设置为1，发布新创建的工作表，并在最后删除它：

Sub exportTwoSheetsInOne()
 Dim fname As String, fpath As String, wb As Workbook, sh As Worksheet
 Dim tblSh1 As ListObject, tblSh2 As ListObject, lastR As Long

 Set wb = ThisWorkbook
 fpath = wb.Path & "\":  fname = "export.pdf" 'you can use a different path if user permissions permit that location

 Set tblSh1 = wb.Worksheets("Sheet1").ListObjects(1)
 Set tblSh2 = wb.Worksheets("Sheet2").ListObjects(1)

 Set sh = wb.Worksheets.Add(After:=wb.Worksheets(wb.Worksheets.count))
 tblSh1.Range.Copy sh.Range("A1")

 lastR = sh.Range("A" & sh.rows.count).End(xlUp).row 'calculate the place where the second table to be copied
 tblSh2.Range.Copy sh.Range("A" & lastR + 2)
 
If Dir(fpath & fname) <> "" Then Kill fpath & fname

Application.ScreenUpdating = False: Application.Calculation = xlCalculationManual 'some optimization
    With sh
       With .PageSetup
           .FitToPagesTall = 1
           .FitToPagesWide = 1
       End With
       .ExportAsFixedFormat Type:=xlTypePDF, fileName:=fpath & fname, _
                Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
       Application.DisplayAlerts = False
        .Delete
       Application.DisplayAlerts = True
    End With
 Application.ScreenUpdating = True: Application.Calculation = xlCalculationAutomatic
End Sub

请在测试后发送一些反馈。