打印为 PDF，但不同纸张的页面大小不同

Question

我有多个 Excel sheet 想要导出为 PDF。每个 sheet 上的内容都是不同的大小和形状。在 PDF 中，我想保留字体大小、布局等，所以我希望 PDF 的页面大小不同，以便每个页面显示 sheet 内容的原始比例。我的宏电流使用下面的代码，但它修复了页面大小。如何让每个 pdf 页面成为打印区域的大小？

 Worksheets("Sheet1").PageSetup.PrintArea = "A1:J39"
 Worksheets("Sheet2").PageSetup.PrintArea = "A1:I23"

 Sheets(Array("Sheet 1", "Sheet 2", "Sheet 3", "Sheet 4")).Select
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Filename, _
    openafterpublish:=False, IncludeDocProperties:=True, IgnorePrintAreas:=False

Answer 1

遗憾的是，自定义页面大小不是用户可以定义的。但是，通过 XlPaperSize Enumeration.

可以使用许多页面大小

如果您每次都使用相同的范围，并且这些范围具有固定的宽度和高度，也许枚举的一种尺寸适合您。

打印为 PDF，但不同纸张的页面大小不同

Print to PDF but with different page sizes for different sheets

pdf

excel

vba