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

我试图打印/导出或保存为一个PDF文档的Excel工作簿中的所有标签。

选项卡的数量可以是任何数字，可以命名任何东西。

我有以下一段代码：

ThisWorkbook.Sheets(Array("Sheet1", "Sheet2")).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\tempo.pdf", Quality:= xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=True 

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

请有人告诉我如何做到这一点？ 提前致谢

Answer 1

只需使用ThisWorkbook.ExportAsFixedFormat或ActiveWorkbook.ExportAsFixedFormat

 Option Explicit Public Sub Example() ThisWorkbook.ExportAsFixedFormat _ Type:=xlTypePDF, _ FileName:="C:\tempo.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=True End Sub 

Workbook.ExportAsFixedFormat方法（Excel）