EXCEL批量设置页眉页脚

在打印前，务必进行页面配置和预览，以确保输出符合预期格式。对于单一表格，手动调整绰绰有余。然而，面对工作簿中大量雷同格式的表格，如何高效地统一设置页眉、页脚以及其他样式呢？

1、 如下图所示，我的一个工作薄中有N个项目的报告，我想统一设置一下页眉页脚，标题统一显示为“某某项目报告”

2、 我们可以用ALT+F11打开VBA编辑器，插入一个模块，复制下列代码到你的编辑窗口：Sub 页面设置()Dim st As WorksheetFor Each st In ThisWorkbook.Worksheets? ? With st.PageSetup"设置页眉左边图片地址? ? ? ? .LeftHeaderPicture.Filename = "f:cimclogo.jpg""设置页眉左边显示图片? ? ? ? .LeftHeader = "&G""设置页眉中间为标题,引用工作表名称? ? ? ? .CenterHeader = st.Name & "项目报告""设置页眉右边为日期，引用单元格的日期? ? ? ? .RightHeader = "报告日期" & Range("h34")"设置页脚左边? ? ? ? .LeftFooter = """设置页脚中间为页码? ? ? ? .CenterFooter = "共&N页? ? 第&P页""设置页脚右边? ? ? ? .RightFooter = """设置纸张大小? ? ? ? .PaperSize = xlPaperA4"设置彩色打印? ? ? ? .BlackAndWhite = False"设置打印表头? ? ? ? .PrintTitleRows = "$1:$1"? ? ? ? .PrintTitleColumns = "$A:$A""设置纵向打印? ? ? ? .Orientation = xlPortrait? ? End WithNextEnd Sub