怎么批量把Excel表格页面全部设置成A4大小？
网友解答: 有两种情况：您要完整打印很多表格到A4纸上打印时设置下即可，如下图所示：“打印整个工作簿”就把当前Excel文件所有的sheets都打印了。“将所有列调整为一页”确保打印是完
有两种情况：
您要完整打印很多表格到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
大部分都是录制宏时自动生成的代码，我删除了不需要的，保留需要的部分，然后运行这个宏就可以了。