如何在 Excel 工作表列印時，為頁首或頁尾新增背景顏色？

作者孫修改日期2025-09-01

在 Excel 中作業時，新增頁首或頁尾能透過加入頁碼、檔案名稱或公司標誌等關鍵資訊，大幅提升列印文件的專業感。雖然 Excel 內建功能允許您在頁首與頁尾中插入文字和圖片（這些內容會於列印時顯示），但若您希望進一步運用背景色來強化可讀性或凸顯品牌形象，就會遇到限制——Excel 目前並未提供直接選項，讓您在列印輸出中為頁首或頁尾區域套用背景顏色。這對於想在列印時清晰區隔頁首／頁尾與主體資料的使用者來說，確實可能造成困擾。以下提供幾種實用的替代方案，協助您在 Excel 列印結果中模擬彩色頁首或頁尾，並兼顧不同需求與技術熟練程度。

透過填充顏色將背景顏色新增至頁首或頁尾

透過 VBA 將背景顏色新增至頁首與頁尾

透過填充顏色將背景顏色新增至頁首或頁尾

此方法透過格式化工作表儲存格，以視覺效果模擬彩色頁首或頁尾。由於透過版面配置建立的實際頁首與頁尾不支援背景顏色，因此格式化頂端和／或底端列是理想的替代方案。當您希望強化列印工作表的視覺區隔或品牌識別，且頁首／頁尾內容可直接顯示於工作表列（而非真正的列印頁首／頁尾）時，此方法最為適用。

此方法的限制包括無法使用動態頁首／頁尾欄位（例如頁碼），且需為每個工作表手動重複這些步驟。

1. 按一下版面配置＞ 頁面設置。

開始前，務必將所有邊界設為 0，以最大化工作表的可用空間，並確保彩色區域緊貼每頁列印內容的頂端和／或底端，於文件列印時營造出宛如真實頁首或頁尾背景的視覺效果！

2. 在頁面設置對話方塊中，前往邊界索引標籤，於上、頁首、下與頁尾文字方塊中輸入 0. 如此即可確保 Excel 內建的頁首與頁尾不保留任何空間，讓工作表內容緊貼列印頁面的最頂端與最底端。
顯示 Excel 中用於調整邊界的「頁面設定」對話框的截圖

3. 按一下確定以套用邊界變更。選取工作表的第一列（此列將作為您的頁首），然後前往常用> 合併後置中，將此列中的所有欄位合併為單一儲存格，為您的頁首文字與背景顏色打造寬廣醒目的顯示區域！
「合併後置中」選項的截圖

提示：針對包含多個欄位的文件，務必選取並合併正確的儲存格範圍，以完整涵蓋您的資料區域。

4. 選取合併後的儲存格，接著點擊位於常用索引標籤中的填充顏色按鈕（油漆桶圖示），並從調色盤中挑選您喜愛的背景色，即可在工作表頂端打造醒目的彩色橫幅，輕鬆模擬頁首背景效果！
為 Excel 標題選取填滿色彩的截圖

5. 若您也想新增彩色頁尾，請捲動至打印範圍的最後一行，選取該列，並重複執行合併儲存格與填滿顏色的步驟，即可在頁面底端打造醒目的彩色區域。

為達最佳效果，建議直接將自訂頁首或頁尾文字新增至這些已上色且合併的區域中。您可依列印需求調整字體大小、對齊方式或格式設定。請注意，此方法僅在可見的工作表區域內定義頁首與頁尾。若您的文件跨越多頁，可能需手動為每一列印頁重複這些格式設定步驟，或僅針對頁首使用頁面設置中的「頂端標題行」功能。

現在，當您前往檔案> 列印，或按下 Ctrl + P 時，即可在預覽頁面頂端（及／或底端）看到彩色橫幅，作為頁首或頁尾的模擬背景！
顯示 Excel 工作表包含標題與頁尾色彩的截圖

若列印預覽中的顏色顯示不如預期，請再次確認印表機設定與工作表範圍是否一致，並檢查打印區域是否涵蓋您已套用格式的欄位。

透過 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

在模組中貼上 VBA 程式碼的截圖

3. 按下 F5 或點擊 VBA 工具列中的執行按鈕以執行程式碼。巨集將根據設定的 PageSize 1（每頁列數）與 PageSize 2（每頁欄數），自動在每個頁面範圍的頂端與底端插入彩色列。每個「頁面」的第 1 列與第 47 列會填入指定色彩及預先定義的文字，在列印預覽或實際列印時共同呈現為「偽造」的頁首與頁尾。
Excel 中套用 VBA 設定標題與頁尾色彩的截圖

您可進一步自訂此巨集，以更貼合自身需求。例如，若要變更頁首或頁尾內容，請調整下列程式碼行中的文字：

xTopArr = Array("Top Left", "", "", "Top Center", "", "", "", "")

xButtArr = Array("Bottom Left", "", "", "Bottom Center", "", "", "", "")

若您想要不同的背景顏色，請在此處修改 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 版本、頁面配置、頁首／頁尾需求的複雜度，以及對您而言自動化與設計控制何者更為重要，來選擇最適合的解決方案。當實際的頁首／頁尾欄位無需在各頁面間動態更新時，頁首／頁尾上色效果特別適用於簡報、封面頁或具品牌識別的列印輸出。

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多