VBA打印/导出/将所有Excel工作簿标签保存为一个PDF文档

Question

我试图将所有标签作为一个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 Method (Excel)