将列的范围导出到PDF页面

Question

我有下面的脚本将每个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

Answer 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