将列范围导出到 PDF 页面答案

【问题标题】：Export range of columns to PDF page将列范围导出到 PDF 页面
【发布时间】：2021-07-02 13:35:30
【问题描述】：

我有以下脚本可以将每个 Excel 工作表导出到单独的 PDF 页面。它工作正常，除了一个小问题。我需要范围列 A:H 以适合一个 PDF 页面。如何更新以下脚本以确保将指定列的所有信息导出在一页上？

Sub ExportToPDFs()

Dim ws As Worksheet

For Each ws In Worksheets
ws.Select
nm = ws.Name

ActiveSheet.Columns("A:H").ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\My Folder\" & nm & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Next ws

End Sub

【问题讨论】：

标签： excel vba range export-to-pdf

【解决方案1】：

我会将打印区域设置为 A:H，并通过功能区的页面设置部分将比例设置为 1 页宽和 1 页高。那么下面的代码应该可以正常工作，而不必通过 VBA 进行缩放。

Sub ExportToPDFs()

Dim ws As Worksheet

For Each ws In Worksheets
ws.Select
nm = ws.Name

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:="C:\My Folder\" & nm & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False

Next ws

End Sub

【讨论】：