如何在打印 Excel 工作表时为页眉或页脚添加背景颜色？
在 Excel 中工作时，通过在页眉或页脚中添加页码、文件名或公司徽标等关键信息，可显著提升打印文档的专业感。尽管 Excel 内置功能支持在页眉和页脚中插入文本与图片，并在打印时正常显示，但您或许希望进一步使用背景色来突出这些区域，以增强可读性或强化品牌形象。遗憾的是，Excel 目前并未提供直接为页眉或页脚区域设置背景颜色并将其包含在打印输出中的选项，这让希望在打印时清晰区分页眉/页脚与数据区域的用户感到不便。为此，以下提供了一些实用的变通方法，帮助您在 Excel 打印输出中模拟带背景色的页眉或页脚，满足不同需求与技术熟练度的用户。
通过填充颜色向页眉或页脚添加背景颜色
此方法通过格式化工作表的顶部和/或底部行，从视觉上模拟带背景色的页眉或页脚。由于通过页面布局创建的真实页眉和页脚不支持背景颜色，因此这是一种高效实用的替代方案。当您的主要目标是提升打印工作表的视觉区分度或强化品牌效果，且页眉/页脚内容可直接显示在工作表行中（而非真正的打印页眉/页脚区域）时，此方法尤为适用。
该方法的局限性在于无法使用动态页眉/页脚字段（例如页码），且需为每个工作表手动重复上述步骤。
1. 单击页面布局 > 页面设置。
在继续之前，请务必将所有页边距设置为 0，以最大化可用工作表空间，并确保彩色区域紧贴每页打印内容的顶部和/或底部，从而在打印时营造出逼真的页眉或页脚背景视觉效果。
2. 在页面设置对话框中，转到页边距选项卡，并在上边距、页眉、下边距和页脚文本框中均输入 0. 这可确保 Excel 内置页眉和页脚不占用任何空间，让工作表内容精准定位至打印页面的最顶端与最底端。
3. 单击确定以应用页边距更改。选择工作表的第一行（该行将作为您的页眉），然后转到开始> 合并后居中，将该行中的所有列合并为一个单元格，即可获得更大的页眉文本与背景颜色显示区域。
提示：对于包含多列的文档，请务必选择并合并正确的单元格范围，以完整覆盖整个数据区域。
4. 选中合并后的单元格后，单击开始选项卡中的填充颜色按钮（油漆桶图标），并从调色板中选择所需的背景颜色。这将在工作表顶部添加一条醒目的彩色条带，轻松模拟页眉背景效果。
5. 若需添加彩色页脚，请滚动至打印范围的最后一行，选中该行，并重复执行合并单元格及填充颜色的操作，即可在页面底部创建醒目的彩色区域。
为获得最佳效果，建议直接在这些已着色且合并的区域中添加自定义页眉或页脚文本。您可根据打印需求灵活调整字体大小、对齐方式或格式。请注意，此方法仅在可见工作表区域内定义页眉和页脚。若文档跨越多页，则可能需要为每一页手动重复上述格式设置步骤，或在页面设置中使用“顶端标题行”功能（仅适用于页眉）。
现在，当您进入文件> 打印，或按下 Ctrl + P 时，即可在预览页面顶部（和/或底部）看到一条彩色条带，作为页眉或页脚的模拟背景。
如果打印预览中的颜色显示与预期不符，请仔细核对打印机设置与工作表范围是否一致，并确认打印区域已涵盖您所格式化的行。
通过 VBA 向页眉和页脚添加背景颜色
对于结构更复杂的工作表，或在处理多页文档并希望以更自动化的方式为每个打印页添加彩色页眉和页脚区域时，您可借助 VBA 宏快速在整个工作表中实现这一效果。该 VBA 解决方案会在每个页面范围的顶部和底部自动插入预设的彩色行，从而在打印输出中精准模拟出带颜色的页眉与页脚外观。
此方法特别适用于大型工作表、旧版报告，或需要在多页上保持统一样式的情形。但需注意，该方法要求启用宏功能，并具备一定的 VBA 界面操作经验。此外，此方法并不会修改 Excel 实际的页眉/页脚，而是通过直接调整工作表内容，实现打印时的模拟效果。
1. 按 Alt + F11 即可打开 Microsoft Visual Basic for Applications 编辑器窗口。如果您首次使用 VBA，可能需要先启用开发工具选项卡。
2. 在 VBA 窗口中，单击插入> 模块。在新模块的代码区域中，复制并粘贴以下代码：
VBA：向页眉和页脚添加背景颜色
Sub FakeHeaderFooter()
'UpdatebyExtendoffice20180628
Dim I, J As Long
Dim xRg As Range
Dim xRow, xCol As Long
Dim xRows, xCols As Long
Dim xDivRow, xDivCol As Long
Dim xTopArr, xButtArr As Variant
Dim PageSize1, PageSize2 As Integer
On Error Resume Next
xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")
xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")
PageSize1 = 46
PageSize2 = 8
With ActiveSheet.PageSetup
.TopMargin = Application.InchesToPoints(0)
.BottomMargin = Application.InchesToPoints(0)
.HeaderMargin = Application.InchesToPoints(0)
.FooterMargin = Application.InchesToPoints(0)
.BlackAndWhite = False
End With
Set xRg = ActiveSheet.UsedRange
If xRg Is Nothing Then Exit Sub
xRows = xRg(xRg.Count).Row
xCols = xRg(xRg.Count).Column
If xRows < 46 Then xRows = 46
If xCol < 8 Then xCol = 8
xDivRow = Int(xRows / PageSize1)
xDivCol = Int(xCols / PageSize2)
If ((xRows Mod PageSize1) > 0) And (xDivRow <> 0) Then xDivRow = xDivRow + 1
If ((xCols Mod PageSize2) > 0) And (xDivCol <> 0) Then xDivCol = xDivCol + 1
If xDivRow = 0 Then xDivRow = 1
If xDivCol = 0 Then xDivCol = 1
Set xRg = Range("A1").Resize(xDivRow * PageSize1, xDivCol * PageSize2)
xRow = 1
xCol = 1
Cells.PageBreak = xlPageBreakNone
For I = 1 To xDivRow * PageSize1 Step PageSize1 + 1
For J = 1 To xDivCol * PageSize2 Step PageSize2
Cells(I, J).Resize(1, PageSize2) = xTopArr
Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34
Cells(I + PageSize1, J).Resize(1, PageSize2) = xButtArr
Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34
Rows(I + PageSize1 + 1).PageBreak = xlManual
Columns(J + PageSize2).PageBreak = xlManual
Next
Next
End Sub
3. 按 F5 或单击 VBA 工具栏中的运行按钮即可执行代码。宏将根据设定的 PageSize 1（每页行数）和 PageSize 2（每页列数），自动在每个页面范围的顶部和底部插入彩色行。“页面”上的第 1 行和第 47 行将填充指定颜色并显示预定义文本，在打印预览或打印工作表时共同呈现为“模拟”的页眉和页脚。
您可以进一步自定义此宏，以更好地满足您的需求。例如，若要更改页眉或页脚内容，请调整以下行中的文本：
xTopArr = Array（"左上“， ““， ““， "顶部居中“， ““， ““， ““， ““）
xButtArr = Array（"左下“， ““， ““， "底部居中“， ““， ““， ““， ““）
如果您想要不同的背景颜色，请在此处修改 ColorIndex 值：
Cells(I, J).Resize(1, PageSize 2).Interior.ColorIndex =34
Cells(I + PageSize 1, J).Resize(1, PageSize 2).Interior.ColorIndex =34
该宏采用标准的 Excel 颜色编号。如需预览不同颜色效果，请参考 Microsoft 的 ColorIndex 文档，或使用 Excel 取色器，快速找到契合您品牌调性与设计偏好的颜色数值。
注意：运行 VBA 宏前，请务必先保存您的工作，因为这些操作无法通过标准撤销功能撤回。此外，由于此宏会修改工作表内容，请确认打印区域设置正确，并根据您的纸张尺寸和布局需求调整 PageSize 1 和 PageSize 2 参数。该方法会插入额外行，可能导致现有数据下移，因此请在运行宏后仔细检查布局效果。
如果在打印时遇到彩色区域显示异常（如颜色缺失或被裁剪），请确认已在打印机高级设置中启用“背景颜色打印”选项，并确保工作表的打印区域设置正确。无论采用填充颜色方法还是 VBA 方法，都需谨慎处理合并单元格与打印范围的设置，以免因配置不当导致内容错位或部分着色异常。
请选择最适合您 Excel 版本、页面布局及页眉/页脚需求复杂度的解决方案，并权衡自动化与设计控制哪个对您更为重要。当页眉/页脚内容无需在各页面间动态更新时，其着色功能在演示文稿、封面页或品牌化打印输出中效果尤为出色。
最佳办公效率工具
| 🤖 | KUTOOLS AI 助手：基于以下内容革新数据分析：智能执行 | 生成代码| 创建自定义公式 | 数据分析及生成图表| 调用 Kutools Functions…… |
| 热门功能：查找、高亮或标记重复项 | 删除空白行 | 合并列或单元格且不丢失数据 | 不使用公式的四舍五入…… | |
| 高级 LOOKUP：多条件 VLookup | 多值 VLookup | 跨多工作表 VLookup | 模糊查找…… | |
| 高级下拉列表：快速创建下拉列表 | 级联下拉列表 | 多选下拉列表…… | |
| 列管理器：添加指定数量的列|移动列|切换隐藏列的可见性状态|比较区域与列…… | |
| 特色功能：网格聚焦 | 设计视图 |增强编辑栏 | 工作簿和表管理器 | 资源库（自动文本）| 日期提取 | 汇总工作表 | 加密/解密单元格 | 按列表发送邮件 | 超级筛选 | 特殊筛选（筛选粗体单元格/斜体/删除线……） ...... | |
| 精选 15 工具集：12 文本工具（添加文本，删除特定字符，……）| 50+ 图表 类型（甘特图，……）| 40+ 实用公式（基于生日计算年龄，……）| 19 插入工具（插入二维码，从路径插入图片，……）| 12 转换工具（小写金额转大写，汇率转换，……）| 7 合并和拆分工具（高级合并行，分割单元格，……）|……更多 |
使用 Kutools for Excel 大幅提升您的 Excel 技能，体验前所未有的高效。Kutools for Excel 提供 300 多项高级功能，助您提升生产力、节省时间。立即点击此处，获取您最需要的功能……
Office Tab 为 Office 带来标签式界面，让您的工作更轻松
- 在 Word、Excel、PowerPoint、Publisher、Access、Visio 和 Project 中启用标签式编辑和阅读。
- 在同一个窗口的新标签页中打开并创建多个文档，而非在新窗口中。
- 将您的工作效率提升 50%，每天减少数百次鼠标点击！
所有 Kutools 插件，一个安装程序
Kutools for Office 套件捆绑了适用于 Excel、Word、Outlook 和 PowerPoint 的插件以及 Office Tab Pro，非常适合需要跨多个 Office 应用高效协作的团队。
- 一体化套件— Excel、Word、Outlook 和 PowerPoint 插件 + Office Tab Pro
- 一个安装程序，一个许可证— 几分钟内完成设置（支持 MSI）
- 协同效果更佳— 在多个 Office 应用中实现高效协同
- 30 天全功能试用— 无需注册，无需信用卡
- 超值之选— 比单独购买插件更省钱