批量进行页面设置

2019-06-11 本文已影响0人 Excel老崔

前言

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

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

代码

如下图所示，我的一个工作薄中有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

End Sub

如下图所示：

打印预览如下：

注意事项

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