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

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

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