要實(shí)現(xiàn)Excel表格中的單號(hào)自動(dòng)生成并打印后遞增，首先，打開你的《收款單》工作表。按住Alt鍵并點(diǎn)擊F11，會(huì)彈出VisualBasic編輯器。接下來，選擇“插入”菜單，然后點(diǎn)擊“模塊”，在新窗口中輸入以下VBA代碼：

SubPR()
ActiveSheet.PrintOut
ActiveSheet.Cells(D2,1).Value=ActiveSheet.Cells(D2,1).Value+1
EndSub

確保這里的【D2】是你用于存儲(chǔ)編碼的單元格。編寫完畢后，關(guān)閉VBA編輯器。

接著，進(jìn)入宏安全性設(shè)置。在“自定義”菜單中選擇“開發(fā)工具選項(xiàng)卡”和“宏安全性”，將宏安全性添加至右側(cè)，然后點(diǎn)擊“確定”。此時(shí)，工具欄會(huì)出現(xiàn)一個(gè)“宏安全性”圖標(biāo)。

雙擊該圖標(biāo)，打開“信息中心”對(duì)話框，進(jìn)入“宏設(shè)置”選項(xiàng)，選擇“啟用所有宏”，點(diǎn)擊“確定”。這樣，就允許了宏的運(yùn)行。

最后，按下Alt+F8，打開“宏”對(duì)話框。在“選項(xiàng)”中，你可以為“CTRL+P”設(shè)置快捷鍵，將其激活為打印功能。點(diǎn)擊“確定”保存設(shè)置。現(xiàn)在，當(dāng)你使用“CTRL+P”打印時(shí)，編碼單元格的值會(huì)自動(dòng)加1，實(shí)現(xiàn)單號(hào)的遞增。