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

Question

我正在尝试打印/导出或将Excel工具簿中的所有标签保存为一个PDF文档。

标签的数量可以是任意数字，可以任意命名。

我有以下代码：

implode()

但这显然需要纸张数量和纸张的确切名称。有没有办法可以计算工作簿中的工作表数量并将所有这些工作簿打印为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)