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

3、打印预览如下：