Excel 2013 在 VBA 中打印为 PDF

Question

似乎 Excel 2013 允许直接另存为 PDF 格式，如何使用 VBA 代码执行此操作？我想构建一个宏，它将自动从工作表创建 PDF(文件名作为字符串变量传递)。
非常感谢大家

Answer 1

尝试

Dim fp As String
Dim wb As Workbook

fp = "C:\temp\foo.pdf"
Set wb = ActiveWorkbook

wb.ExportAsFixedFormat Type:=xlTypePDF, _
                       Filename:=fp, _
                       Quality:=xlQualityStandard, _
                       IncludeDocProperties:=True, _
                       IgnorePrintAreas:=False, _
                       OpenAfterPublish:=False

*请注意 ExportAFixedFormat必须将其所有变量放在一行，否则将无法编译。

**请注意，“_”字符应该允许编译，而不是全部在一行上