使用VBA設置打印頁面高度和寬度

使用VBA設置打印頁面高度和寬度（一般需要設置在一頁紙的時候）

 

 

Sub Setprintpage() '設置打印頁面為縮放到一頁
    Application.PrintCommunication = False '關掉打印通訊
    With ActiveSheet.PageSetup
        .Zoom = True
        .FitToPagesWide = 1
        .FitToPagesTall = 1
    End With
    Application.PrintCommunication = True '恢復打印通訊
End Sub