如何使用 vba 打印为 pdf（附示例）

您可以在 VBA 中使用以下语法将当前活动的 Excel 工作表打印为 PDF：

 SubPrintToPDF ()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:=" my_data.pdf ", _
                                Quality:=xlQualityStandard, _
                                IncludeDocProperties:= False ,_
                                IgnorePrintAreas:= False ,_
OpenAfterPublish:= True

End Sub

此特定宏会将当前活动的 Excel 工作表打印为名为my_data.pdf的 PDF，并将其保存在当前文件夹中。

注意#1 ：您还可以在文件名参数中包含完整的文件路径，以将 PDF 保存到特定文件夹。

注意#2 ： OpenAfterPublish:= True行告诉 VBA 在导出 PDF 后立即打开它。如果您不希望在导出后打开 PDF，则可以省略此参数。

注意 #3 ： ExportAsFixedFormat方法中唯一必需的参数是Type ，必须将其设置为xlTypePDF才能以 PDF 格式打印工作表。

以下示例展示了如何在实践中使用该宏。

示例：使用 VBA 将 Excel 工作表导出为 PDF

假设我们有以下 Excel 工作表，其中包含有关各个篮球运动员的信息：

现在假设我们想要将此工作表导出为名为my_data.pdf的 PDF。

我们可以创建以下宏来执行此操作：

 SubPrintToPDF ()

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
                                Filename:=" my_data.pdf ", _
                                Quality:=xlQualityStandard, _
                                IncludeDocProperties:= False ,_
                                IgnorePrintAreas:= False ,_
OpenAfterPublish:= True

End Sub

当我们运行这个宏时，Excel工作表会导出为PDF，然后PDF会自动打开：

请注意，PDF 中包含带有边框和填充颜色的精确单元格格式。

注意：您可以在此处找到 VBA 中ExportAsFixedFormat方法的完整文档。

其他资源

以下教程说明如何在 VBA 中执行其他常见任务：

VBA：如何创建文件夹
VBA：如何删除文件夹
VBA：如何删除文件