設定方法如下：

開啟需要列印的Excel表格，依次單擊“開始→選項”，在開啟的excel選項對話方塊中單擊左側“自定義功能區”選單，在右側勾選“開發工具”選項，勾選完成後單擊”確定”；

完成上述設定後，依次單擊“開發工具→錄製宏”；

在彈出的錄製宏對話方塊保持預設選擇單擊“確定”；

完成上述操作後，單擊選單中的“停止錄製”；

此時單擊“宏”，在彈出的宏對話方塊中選擇上步建立的宏選項單擊“編輯”；在開啟的宏編輯對話方塊中將下述程式碼貼上到宏編輯對話方塊中；

Sub 分頁()

Dim i, k As Integer

k = Range("a65536").End(xlUp).Row

For i = 4 To k

If i Mod 20 = 0 Then "當20行 分頁

Cells(i + 1, 1).Select

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell

End If

Next

End Sub

完成上述操作後依次關閉宏對話方塊；

完成上述操作後單擊宏，在宏對話方塊中選擇上步驟中編輯好的宏“分頁”選擇“執行”；

完成上述操作後依次單擊“頁面佈局>列印標題”，在彈出的“頁面設定”對話方塊中單擊“頂端標題行”後的向上箭頭；

此時頁面設定自動收縮，滑鼠變成向右的箭頭，此時選擇標題行；

選擇完成後單擊頁面設定後的向下箭頭；

完成上述操作後在頁面設定對話方塊中單擊“確定”；

完成上述操作後即可執行Ctrl+P進行列印，結果如下每頁20行並且帶有表頭。