Skip to main content

Kutools for Office — 一套工具,五種功能。完成更多工作。

如何在列印 Excel 工作表時為頁首或頁尾添加背景色?

Author: Sun Last Modified: 2025-08-23

在 Excel 中工作時,新增頁首或頁尾可以透過包含頁碼、文件名稱或公司標誌等重要資訊來提升打印文件的專業外觀。雖然 Excel 的內建功能允許您插入文本和圖片到頁首和頁尾中以在列印時顯示,但您可能會希望通過背景色來突出這些部分以提高可讀性或進行品牌化。然而,Excel 目前並未提供直接應用背景色到頁首或頁尾區域的選項。如果您希望在列印時從數據中視覺分離出這些部分,這可能會讓人感到沮喪。下面,您將找到一些實用的解決方案,模擬在 Excel 列印輸出中的彩色頁首或頁尾,滿足不同的需求和技術舒適度。

使用填充顏色為頁首或頁尾添加背景色

使用 VBA 為頁首和頁尾添加背景色


使用填充顏色為頁首或頁尾添加背景色

此方法涉及格式化工作表單元格以視覺上模仿彩色頁首或頁尾。由於通過「頁面佈局」創建的實際頁首和頁尾不支持背景色,因此格式化頂部和/或底部行提供了有效的替代方案。當您的主要目標是增強打印工作表的視覺分隔或品牌化,並且頁首/頁尾內容可以在工作表行中顯示而不是真正的打印頁首/頁尾時,此方法最為適用。

此方法的局限性包括無法使用動態頁首/頁尾字段(如頁碼)以及需要手動為每張工作表重複這些步驟。

1. 點擊 頁面佈局 > 頁面設置.

在繼續之前,重要的是將所有邊距設置為 0,以最大化可用的工作表空間,並確保彩色區域位於每個打印頁面的頂端和/或底端。這有助於在打印文件時創造真實的頁首或頁尾背景的錯覺。

2. 在 頁面設置 對話框中,轉到 邊距 標籤並輸入 0頂端, 頁首, 底端,以及 頁尾 文本框中。這確保沒有為 Excel 內建的頁首和頁尾保留任何空間,並將您的工作表內容放置在打印頁面的最頂端和底端。
A screenshot showing Page Setup dialog to adjust margins in Excel

3. 點擊 確定 以應用邊距更改。選擇工作表的第一行(此行將視覺上充當您的頁首),然後轉到 開始 > 合併及居中 以將該行中的所有列合併成一個單元格。這為您的頁首文本和背景色提供了大面積的空間。
A screenshot of Merge and Center option

提示:對於有多列的文件,請確保選擇並合併正確範圍的單元格以覆蓋您的整個數據區域。

4. 選擇合併的單元格後,點擊 填充顏色 按鈕(油漆桶圖標)在 開始 標籤中,並從面板中選擇所需的背景色。這將在工作表的頂部添加一條可見的色帶,模仿頁首背景。
A screenshot of selecting fill color for Excel header

5. 如果您還希望添加彩色的頁尾,請滾動到打印範圍的最後一行,選擇它,並重複合併和填充顏色的步驟,在頁面底部創建彩色區域。

為了獲得最佳效果,建議將自定義的頁首或頁尾文本直接添加到這些彩色且合併的單元格中。您可以根據打印要求調整字體大小、對齊方式或格式。請記住,此方法僅在可見的工作表區域中定義頁首和頁尾。如果您的文件跨越多頁,您可能需要為每頁打印手動重複這些格式化步驟,或者使用「頁面設置」中的「頂端標題行」功能來設定頁首。

現在,當您進入 文件 > 打印 或按下 Ctrl + P時,您應該能在預覽頁面的頂部(和/或底部)看到一條彩色帶,作為模擬的頁首或頁尾背景。
A screenshot showing Excel worksheet with header and footer color

如果在打印預覽中顏色未按預期顯示,請仔細檢查您的打印機設置和工作表範圍是否對齊,並確認打印區域涵蓋了已格式化的行。


使用 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 NextEnd Sub

A screenshot showing VBA code pasted in a module

3. 按下 F5 或點擊 運行 按鈕在 VBA 工具欄中執行代碼。該宏將自動在每頁範圍的頂部和底部插入彩色行,由所設置的 PageSize1 (每頁的行數)和 PageSize2 (每頁的列數)決定。每個“頁面”的第一行和第47行將填充指定的顏色和預定義的文本,這將在您進行打印預覽或打印工作表時顯示為“偽”頁首和頁尾。
A screenshot of VBA-applied header and footer color in Excel

您可以進一步定制此宏以滿足您的需求。例如,要更改頁首或頁尾內容,請調整這些行中的文本:

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

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

如果您想要不同的背景色,請在此處修改 ColorIndex 值:

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

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

該宏使用標準的 Excel 顏色索引。若要預覽不同的顏色,請查閱 Microsoft 的 ColorIndex 參考或使用 Excel 的顏色選擇器來識別符合您品牌或設計偏好的值。

注意:在運行 VBA 宏之前請先保存您的工作,因為無法使用標準的撤銷功能撤銷操作。此外,由於此宏會更改工作表內容,請確認您的打印區域正確並根據您的特定紙張和布局需求調整 PageSize1PageSize2 參數。此方法將添加額外的行並可能使現有的數據向下移動,因此在運行宏後請檢查您的布局。

如果您在打印時遇到彩色區域未按預期顯示的問題(如顏色缺失或切斷),請確認您的打印機的高級設置中已啟用背景色打印,並確保您的工作表打印區域已正確設置。填充顏色和 VBA 方法都需要謹慎處理合併單元格和打印範圍設置,因為設置不當可能會導致對齊錯誤或部分著色。

選擇最適合您 Excel 版本、頁面布局、頁首/頁尾需求的複雜性以及自動化或設計控制對您來說更重要的解決方案。頁首/頁尾顏色化最適合用於演示文稿、封面頁或品牌打印輸出,當不需要跨頁更新動態頁首/頁尾字段時。


最佳 Office 生產力工具

🤖 Kutools AI 助手:以智能執行為基礎,革新數據分析 生成程式碼 創建自訂公式 分析數據並生成圖表 調用 Kutools 增強函數
熱門功能查找、選取項目的背景色或標記重複值刪除空行合併列或單元格且不遺失數據四捨五入(免公式)...
高級 LOOKUP多條件 VLookup多值 VLookup多表查找模糊查找...
高級下拉列表快速創建下拉列表 依賴型下拉列表 多選下拉列表...
列管理器添加指定數量的列移動列切換隱藏列的顯示狀態比較區域及列...
精選功能網格聚焦 設計檢視 增強編輯欄 工作簿及工作表管理器 資源庫(快捷文本) 日期提取器 合併資料 加密/解密儲存格 按列表發送電子郵件 超級篩選 特殊篩選(篩選粗體/傾斜/刪除線...)...
15 大工具集12 項文本工具添加文本刪除特定字符…)50+ 儀表 類型甘特圖等)40+ 實用 公式基於生日計算年齡等)19 項插入工具插入QR码根據路徑插入圖片等)12 項轉換工具金額轉大寫匯率轉換等)7 項合併與分割工具高級合併行分割儲存格等)...及更多
使用 Kutools,語言任你選 — 支援英語、西班牙語、德語、法語、中文及超過40 種語言!

運用 Kutools for Excel,全面提升您的 Excel 技能,體驗前所未有的高效。 Kutools for Excel 提供超過300 項進階功能,讓您提升工作效率、節省時間。 點此尋找您最需要的功能...


Office Tab 為 Office 帶來分頁介面,讓您的工作更加輕鬆簡單

  • 在 Word、Excel、PowerPoint 中啟用分頁編輯與閱讀
  • 在同一視窗的新分頁中打開與創建多份文件,而非開啟新視窗。
  • 提升您的生產力50%,每日可幫您減少數百次鼠標點擊!

所有 Kutools 外掛,一次安裝

Kutools for Office 套裝整合了 Excel、Word、Outlook 和 PowerPoint 的外掛,外加 Office Tab Pro,非常適合需要跨 Office 應用程式協同作業的團隊。

Excel Word Outlook Tabs PowerPoint
  • 全合一套裝 — Excel、Word、Outlook及 PowerPoint 外掛 + Office Tab Pro
  • 一鍵安裝,一份授權 — 幾分鐘完成設置(支援 MSI)
  • 協同運作更順暢 — Office 應用間無縫提升生產力
  • 30 天全功能試用 — 無需註冊、無需信用卡
  • 最超值 — 一次購買,節省單獨外掛費用