使用VBA设置打印页面高度和宽度

使用VBA设置打印页面高度和宽度（一般需要设置在一页纸的时候）

 

 

Sub Setprintpage() '设置打印页面为缩放到一页
    Application.PrintCommunication = False '关掉打印通讯
    With ActiveSheet.PageSetup
        .Zoom = True
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Application.PrintCommunication = True '恢复打印通讯
End Sub