固定表頭：列印標題功能

路徑：
• Excel 2003：檔案 > 頁面設定 > 工作表 > 頂端標題列
• Excel 2007/2010/365：頁面配置 > 頁面設定 > 列印標題 > 頂端標題列

固定表尾：Excel 無內建功能，兩種替代方案

方案一：頁尾插入圖片/文字（靜態）

1. 頁面設定 > 頁首/頁尾 > 自訂頁尾。
2. 在左/中/右區輸入固定文字、插入圖片（簽名、章戳）。
3. 缺點：**無法動態連結資料彙總值**（每頁小計、總計）。

方案二：分類彙總實現動態每頁彙總（核心技巧）

利用 資料 > 分類彙總 在每組資料後插入小計列，配合列印設定，使每頁自然結束於小計列，形成「動態表尾」。

1. 資料依分類欄位排序（如部門）。
2. 資料 > 分類彙總：
    • 每當下列欄位變更時：選分類欄（如部門）。
    • 彙總方式：總和/平均/計數等。
    • 加入彙總項目：勾選需彙總欄位（如金額）。
    • 勾選 分頁列印（關鍵：每組彙總後換頁）。
   
3. 確定。工作表出現大綱顯示符號（1/2/3），每組資料後有小計列，且強制分頁。
4. 設定 列印標題 固定表頭。
5. 列印預覽：每頁末尾為該組小計，**動態反映該頁資料彙總**。
   

優缺點比較

方案	動態彙總	每頁結尾對齊	設定複雜度	適用情境
頁尾靜態文字/圖片	❌	固定位置	低	固定版權聲明、機密等級、簽名圖片
分類彙總 + 分頁列印	✅ (每組小計)	✅ (強制分頁)	中	明細帳、銷售報表、庫存清單需每頁小計
VBA 列印事件動態寫入頁尾	✅ (任意計算)	✅ (精確控制)	高	複雜報表、需跨頁累計、特殊格式

VBA 進階：列印前動態寫入頁尾彙總值

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Dim ws As Worksheet, lastRow As Long, total As Double
    For Each ws In ThisWorkbook.Worksheets
        If ws.Name <> "設定" Then
            lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
            total = Application.Sum(ws.Range("E2:E" & lastRow)) ' 假設 E 欄為金額
            ws.PageSetup.RightFooter = "頁小計: " & Format(total, "#,##0") & " 元"
        End If
    Next ws
End Sub

放入 `ThisWorkbook` 模組，列印前自動計算各工作表金額總和寫入右側頁尾。