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