EXCEL批量设置页眉页脚

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

2、我们可以用ALT+F11打开VBA编辑器，插入一个模块，复制下列代码到你的编辑窗口：

Sub 页面设置()

Dim st As Worksheet

For 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 With

Next

End Sub

3、打印预览如下：