Excel VBA 設定所有欄位單一頁面列印

希望以VBA設定所有欄位單一頁面列印,如下圖:



程式碼:
Application.PrintCommunication = False
With Sheets("工作表1")
    .PageSetup.Zoom = False
    .PageSetup.FitToPagesWide = 1
    .PageSetup.FitToPagesTall = 0
End With
Application.PrintCommunication = True