我正在尝试将 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?
请有人告诉我如何做到这一点?提前致谢
只需使用 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
本文收集自互联网,转载请注明来源。
如有侵权,请联系 [email protected] 删除。
我来说两句