Excel 2013在VBA中打印到PDF

Question

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

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必须将其所有变量放在一行上，否则将无法编译。
**请注意，'_'字符应允许编译，而不是全部在一行