打印前要进行页面设置，页面预览，才能打印出你想要的格式，对于单个表的打印手动设置即可，但是如果一个工作薄中有十几个同样格式的表，如何进行页眉页脚还有其它样式的设置呢？今天老崔就告诉大家一个好用的方法！工具/原料moreexcel方法/步骤1/3分步阅读

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

2/3

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

打印预览如下：

注意事项

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

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

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

EXCELVBA页眉页脚批量