【Excel VBA】PageSetup对象-打印设置

我们在工作中经常会打印东西，会手动设置一些参数，如横向或竖向打印等。了解下PageSetup属性，用简短的几行代码设置好打印参数，便可以设置一次，永久使用，方便高效。

PageSetup对象代表页面设置说明。包含所有页面设置的属性(左边距、底部边距、纸张大小等)。

下例将打印方向设置为横向，然后打印工作表。

With Worksheets("Sheet1")
     .PageSetup.Orientation = xlLandscape
     .PrintOut
 End With

1.与“页面”选项卡对应的属性

属性	说明
FirstPageNumber	返回或设置打印指定工作表时第一页的页号。如果设为 xlAutomatic，则 Microsoft Excel 采用第一页的页号。默认值为 xlAutomatic。Long 类型，可读写。
FitToPagesTall	返回或设置打印工作表时，对工作表进行缩放使用的页高。仅应用于工作表。Variant  类型，可读写。
FitToPagesWide	返回或设置打印工作表时，对工作表进行缩放使用的页宽。仅应用于工作表。Variant  类型，可读写。
Orientation	返回或设置一个 XlPageOrientation  值，该值代表纵向或横向打印模式。
Pages	返回或设置 Pages 集合中的页数。
PaperSize	返回或设置纸张大小。可读写 XlPaperSize。
PrintQuality	返回或设置打印质量。Variant 类型，可读写。
Zoom	返回或设置一个 Variant 值，它代表一个数值在 10% 到 400% 之间的百分比，该百分比为 Microsoft Excel 打印工作表时的缩放比例。此属性仅适用于工作表。如果此属性设置为 False，则 FitToPagesWide 和  FitToPagesTall 属性控制工作表缩放的方式。所有缩放均保持原文档的长宽比例。

本示例将 Sheet1 设置为横向打印。

Worksheets("Sheet1").PageSetup.FirstPageNumber = 100'将 Sheet1 打印时的第一页的页号设置为 100
 Worksheets("Sheet1").PageSetup.Orientation = xlLandscape'将 Sheet1 设置为横向打印
 Worksheets("Sheet1").PageSetup.Orientation = xlPortrait'将 Sheet1 设置为纵向打印
 With Worksheets("Sheet1").PageSetup'按照一页的宽度和高度打印 Sheet1
     .Zoom = False
     .FitToPagesTall = 1
     .FitToPagesWi