2、切換到Sheet2工作表中，仿照圖2所示的樣式，制作好需要打印的表格表頭的表尾。
3、選中A4單元格，輸入公式：=A3+1，并用“填充柄”將其公式復制到A5至A22單元格中（此處假定每頁打印20行數(shù)據(jù)）。
4、分別選中B3至H3單元格，依次輸入公式：=IF(ISERROR(VLOOKUP($A3,數(shù)據(jù)!A:H,2,FALSE)),'',VLOOKUP($A3,數(shù)據(jù)!A:H,2,FALSE))、=IF(ISERROR(VLOOKUP($A3,數(shù)據(jù)!A:H,3,FALSE)),'',VLOOKUP($A3,數(shù)據(jù)!A:H,3,FALSE))……=IF(ISERROR(VLOOKUP($A3,數(shù)據(jù)!A:H,8,FALSE)),'',VLOOKUP($A3,數(shù)據(jù)!A:H,8,FALSE))。
5、同時選中B3—H3單元格區(qū)域，用“填充柄”將上述公式復制到B4至H22單元格中。
6、分別選中E23和F23單元格，輸入公式：=SUM(E3:E22)和=SUM(F3:F22)，用于統(tǒng)計當頁工程的“建筑面積”和“造價”，達到分頁匯總的目的。
7、執(zhí)行“工具→宏→Visual Basic編輯器”命令，進入VBA編輯狀態(tài)（如圖3）。
注意：按下“Alt+F11”組合鍵，也可以快速進入VBA編輯狀態(tài)。
8、選中“工程.xls”工作簿名稱，執(zhí)行“插入→模塊”命令，插入一個新模塊（模塊1），然后將下述代碼輸入到右側的空白區(qū)域中：
Sub 分頁打印()
x = InputBox('請輸入打印起始頁碼') '設置打印起始頁碼
y = InputBox('請輸入打印結束頁碼') '設置打印結束頁碼
For i = x To y '設置一個循環(huán)
Cells(3, 1) = 20 * (i - 1) + 1 '在A3單元格中輸入一個序號
ActiveWindow.SelectedSheets.PrintOut '執(zhí)行一次打印操作
Next '進入下一個循環(huán)
End Sub
注意：在上述代碼中，英文單引號“'”及后面的字符是對代碼的解釋，在實際輸入的時候不需要輸入。
9、輸入完成后，關閉VBA編輯窗口，返回工作表中。
10、執(zhí)行“視圖→工具欄→控件工具箱”命令，展開“控件工具箱”工具條（如圖4）。
11、單擊工具條上的“命令按鈕”按鈕，然后在工作表中拖拉一下，畫出一個命令按鈕。
12、右擊命令按鈕，在隨后出現(xiàn)的快捷菜單中，選擇“屬性”選項，打開“命令按鈕屬性”設置框（如圖5）。
注意：將“PrintObject”選項設置為“False”，則后面打印時，該按鈕不被打印出來。如果設置成了“True”，則按鈕會打印在紙張上，影響表格的打印效果。
14、雙擊上述命令按鈕，再次進入VBA編輯狀態(tài)，將“分頁打印”（上述代碼中的宏名稱）字符輸入到已經出現(xiàn)的兩行代碼之間，成如下狀況：
Private Sub CommandButton1_Click()
分頁打印
End Sub
15、關閉VBA編輯狀態(tài)，返回工作表中。
16、象調整普通圖片大小一樣，調整好命令按鈕的大小，關將其定位在表格的合適位置上，單擊工具欄上的“退出設計模式”按鈕。
17、以后需要分頁打印時，單擊“分頁打印”命令按鈕，系統(tǒng)先后彈出類似如圖6所示的兩個提示框，輸入需要打印的起、始頁號（參見圖6）。
