有兩種情況：
您要完整打印很多表格到A4紙上
打印時設置下即可，如下圖所示：
“打印整個工作簿”就把當前Excel文件所有的sheets都打印了?！皩⑺辛姓{整為一頁”確保打印是完整的。
您只想設置所有sheets的紙張大小為A4并確保所有列都在同一頁上
我想到的法子是錄制一個宏，然后修改宏代碼為以下：
Sub宏1()Fori=1ToWorksheets.Count
Worksheets(i).Select
WithActiveSheet.PageSetup
.PaperSize=xlPaperA4
.FirstPageNumber=xlAutomatic
.Order=xlDownThenOver
.FitToPagesWide=1
EndWith
Application.PrintCommunication=True
Next
EndSub
大部分都是錄制宏時自動生成的代碼，我刪除了不需要的，保留需要的部分，然后運行這個宏就可以了。