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)