设置 Microsoft Excel 准确按照一页的宽度和高度打印 Sheet1。

VBA复制

 With Worksheets("Sheet1").PageSetup

 .Zoom = False

 .FitToPagesTall = 1

 .FitToPagesWide = 1

End With

本示例设置 Microsoft Excel 准确按照一页的宽度和高度打印 Sheet1。

VBA复制

 With Worksheets("Sheet1").PageSetup

 .Zoom = False

 .FitToPagesTall = false

 .FitToPagesWide = 1

End With