VBA打印/导出/保存所有Excel工作簿选项卡到一个PDF文档中

我正在尝试将excel工作簿中的所有选项卡打印/导出或保存为一个PDF文档

选项卡的数量可以是任意数量，也可以命名为任意名称

我有以下代码：

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "C:\tempo.pdf", Quality:= xlQualityStandard, IncludeDocProperties:=True, _
     IgnorePrintAreas:=False, OpenAfterPublish:=True

但这显然需要纸张的数量和纸张的确切名称。是否有一种方法可以计算工作簿中的工作表数量，并将所有工作表作为一个PDF文档打印到PDF

有人能告诉我怎么做吗？ 提前感谢

只需使用此工作簿即可。导出为固定格式或

Option Explicit
Public Sub Example()

    ThisWorkbook.ExportAsFixedFormat _
                     Type:=xlTypePDF, _
                     FileName:="C:\tempo.pdf", _
                     Quality:=xlQualityStandard, _
                     IncludeDocProperties:=True, _
                     IgnorePrintAreas:=False, _
                     OpenAfterPublish:=True

End Sub