有兩種情況：
列印時設定下即可，如下圖所示：
“列印整個工作簿”就把當前Excel檔案所有的sheets都列印了。“將所有列調整為一頁”確保列印是完整的。
我想到的法子是錄製一個宏，然後修改宏程式碼為以下：
For i = 1 To Worksheets.Count
Worksheets(i).Select
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.FitToPagesWide = 1
End With
Application.PrintCommunication = True
Next
End Sub
有兩種情況：
您要完整列印很多表格到A4紙上列印時設定下即可，如下圖所示：
“列印整個工作簿”就把當前Excel檔案所有的sheets都列印了。“將所有列調整為一頁”確保列印是完整的。
您只想設定所有sheets的紙張大小為A4並確保所有列都在同一頁上我想到的法子是錄製一個宏，然後修改宏程式碼為以下：
Sub 宏1()For i = 1 To Worksheets.Count
Worksheets(i).Select
With ActiveSheet.PageSetup
.PaperSize = xlPaperA4
.FirstPageNumber = xlAutomatic
.Order = xlDownThenOver
.FitToPagesWide = 1
End With
Application.PrintCommunication = True
Next
End Sub