1.在excel內I2為數字變化單元格，數值格式為："000，數值前面加個"號

2.sheet1表名上右鍵檢視程式碼輸入：

Sub 列印()ActiveWindow.SelectedSheets.PrintOuts = Val(Range("I2"))s = s + 1Range("I2") = """ & Right("00000000" & s, 8)End Sub

注：

"I2"指定的變化單元格，

s = s + 1指的是遞增1次

("00000000" & s, 8)中的"00000000" 指的是八位數值編碼，8為變化數位為8位，這個根據實際情況改為("0000" & s, 5)也可以

程式碼輸入完畢後，另存為excel啟用宏的工作簿，即：Microsoft Excel 啟用宏的工作表 (.xlsm)格式

3.開啟Microsoft Excel 啟用宏的工作表 (.xlsm)，可以建立控制元件

開發工具-插入-表單控制元件選擇紅色標註：按鈕（窗體控制元件），在指定需要的位置畫個合適的按鈕框後，出現指定宏，第二排 sheet1.列印，選中確定。把出現的按鈕4更為文字為列印。然後選擇列印按鈕就可以進行列印了，每列印一次I2的編號自動會增加一次。