怎么批量把Excel表格頁面全部設置成A4大小？
網(wǎng)友解答: 有兩種情況：您要完整打印很多表格到A4紙上打印時設置下即可，如下圖所示：“打印整個工作簿”就把當前Excel文件所有的sheets都打印了?！皩⑺辛姓{(diào)整為一頁”確保打印是完
有兩種情況：
您要完整打印很多表格到A4紙上打印時設置下即可，如下圖所示：
“打印整個工作簿”就把當前Excel文件所有的sheets都打印了。“將所有列調(diào)整為一頁”確保打印是完整的。
您只想設置所有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
大部分都是錄制宏時自動生成的代碼，我刪除了不需要的，保留需要的部分，然后運行這個宏就可以了。