设置 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