批量进行页面设置

前言

打印前要进行页面设置，页面预览，才能打印出你想要的格式，对于单个表的打印手动设置即可，但是如果一个工作薄中有十几个同样格式的表，如何进行页眉页脚还有其它样式的设置呢？

今天老崔就告诉大家一个好用的方法！

 代码

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

我们可以用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

如下图所示：

打印预览如下：

 注意事项

在页眉或页脚插入图片时，需要指定文件路径，并且设定属性为“&G”,才可以显示。

'设置页眉左边图片地址

        .LeftHeaderPicture.Filename = "f:\cimclogo.jpg"

'设置页眉左边显示图片

        .LeftHeader = "&G"

设置页码时&N为总页码，&P为第几页，需放在引号中使用

'设置页脚中间为页码

        .CenterFooter = "共&N页    第&P页"

页眉页脚可以引用工作表的名称或工作表内单元格的数据

'设置页眉中间为标题,引用工作表名称

        .CenterHeader = st.Name & "项目报告"

'设置页眉右边为日期，引用单元格的日期

        .RightHeader = "报告日期" & Range("h34")