如何在打印Excel工作表时为页眉或页脚添加背景色？

众所周知，我们可以在工作表的页眉或页脚中添加文本或图片，这些内容在打印时会显示出来。但你是否尝试过为页眉或页脚添加背景色呢？实际上，Excel并没有内置功能可以实现这一点，但在这里我将介绍一些间接的方法来完成该操作。

通过填充颜色为页眉或页脚添加背景色

通过VBA为页眉和页脚添加背景色

通过填充颜色为页眉或页脚添加背景色

1. 点击 页面布局 > 页面设置.

2. 在 页面设置 对话框中，切换到 页边距 选项卡，在 0 输入 顶部, 页眉, 底部 和 页脚 文本框中设置值。

3. 点击 确定。然后选择第一行并点击 开始 > 合并居中.

3. 接着从 填充颜色 列表中选择一种颜色，为合并后的单元格添加背景色。

4. 重复步骤2和步骤3，为所需的页脚行添加背景色。

现在，页面看起来已经为页眉和页脚添加了背景色。

通过VBA为页眉和页脚添加背景色

这里有一个VBA代码可以快速同时为页眉和页脚添加背景色。

1. 按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 点击 插入 > 模块，复制并将以下代码粘贴到新模块中。

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 键运行代码，随后每个工作表的第一行和第47行将被添加指定的背景色，作为伪页眉和页脚显示。

注意：在代码中，你可以根据需要更改以下脚本。

1. 根据需要更改字符串中的页眉和页脚内容：

xTopArr = Array("左上", "", "", "中上", "", "", "", "")

xButtArr = Array("左下", "", "", "中下", "", "", "", "")

2. 更改此字符串中的背景色编号：

Cells(I, J).Resize(1, PageSize2).Interior.ColorIndex = 34

Cells(I + PageSize1, J).Resize(1, PageSize2).Interior.ColorIndex = 34