时间戳

首页 > 解决方案 > 将列范围导出到 PDF 页面

excel - 将列范围导出到 PDF 页面

问题描述

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

标签： excelvbarangeexport-to-pdf

解决方案

我会将打印区域设置为 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

推荐阅读