工具/材料：EXCEL表格
1.点击打开桌面上的EXCEL表格，如图所示。
2.打开excel表格后，点击表格里面的文件，如图所示。
3.点击打印选项，并在下拉菜单中选项打印预览。
4.进入到打印预览模式后，点击页面设置选项，如图所示。
5.点击工作表，并在工作表的目录下勾选行号列标，这样就可以设置编号每打印一次自动递增。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2017-01-15
第一步，在excel里，按ALT+F11，会弹出一个窗口
第二步，在弹出的窗口里选 菜单中的插入，模块
第三步，复制粘贴下面
Sub dayin()
dim n as integer
n=inputbox("打印次数") *1
for i=1 to n
activesheet.PrintOut Copies:=1
[H2]= "NO:" & application.text(i,"0000000000")'这里是H2，改成自己需要的单元格，后面是数字格式，根据需要修改
next
End Sub
代码，然后关闭窗口
第四步，回到excel中》宏》dayin》确定，输入打印份数本回答被网友采纳
第二步，在弹出的窗口里选 菜单中的插入，模块
第三步，复制粘贴下面
Sub dayin()
dim n as integer
n=inputbox("打印次数") *1
for i=1 to n
activesheet.PrintOut Copies:=1
[H2]= "NO:" & application.text(i,"0000000000")'这里是H2，改成自己需要的单元格，后面是数字格式，根据需要修改
next
End Sub
代码，然后关闭窗口
第四步，回到excel中》宏》dayin》确定，输入打印份数本回答被网友采纳
第2个回答 2018-10-04
使用现成的工具，勾选仅递增打印，选择Excel类型即可。
第3个回答 2018-09-23
第一步，在excel里，按ALT+F11，会弹出一个窗口
在VB中输入以下代码程序就行,你的流水号设置在哪个位就把[F3]换成你要的位置就行!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet3" Then
Application.EnableEvents = False
[f3] = Left([f3], 9) & Format(Right([f3], 5) + 1, "00000")
Application.EnableEvents = True
End If
End Sub
此程序我是在网上搜出的，原来的程序会重复打印，后来我查了很久，把其中的一个编程删掉才不会重复打印
在VB中输入以下代码程序就行,你的流水号设置在哪个位就把[F3]换成你要的位置就行!
Private Sub Workbook_BeforePrint(Cancel As Boolean)
If ActiveSheet.Name = "Sheet3" Then
Application.EnableEvents = False
[f3] = Left([f3], 9) & Format(Right([f3], 5) + 1, "00000")
Application.EnableEvents = True
End If
End Sub
此程序我是在网上搜出的，原来的程序会重复打印，后来我查了很久，把其中的一个编程删掉才不会重复打印
相似回答