1、我们通过《收款单》，来逐步看一下如何设置表格打印后编码自动加1。
3、依次点击菜单栏，“插入-模块”后，弹出如图对话框！
4、在模块对话框中输入：Sub PR() ActiveSheet.Printout [D2]=[D2]+1 End Sub其中【D2】为编码单元格，输入完毕后，关闭VB对话框。
6、在对话框中，依次选取【自定义】-【开发工具选项卡】-【宏安全性】，将【宏安全性】添加到右栏，点击【确定】。
8、双击【宏安全性】图标，弹出【信息中心】对话框，在其中点击【宏设置】，选取“启用所有宏”，点击确定。
10、在【宏】对话框中，点击【选项】，弹出【宏选项】界面，在此界面中可以设置热键，输入任戾态菩痃何字母皆可，我们设置成“C皈其拄攥TRL+P”吧，因为打印的快捷键也是此二键，这样方便记忆，点击【确定】，到此为止，设置完毕。
