excel 打印自动增加编号

Sub dayin()
    dim n as integer
    n=inputbox("打印次数") *1
    for i=1 to n
        activesheet.PrintOut Copies:=1
        [H2]= "NO:" & application.text(i,"0000000000")
    next
End Sub

用宏吧，选打印个2张试试效果，最后用pdf打印机测试

Sub AscendPrint()   
 dim Copies as integer,Index as integer
Copies=val(inputbox("打印份数","消息",1))
Index=val(getsetting("AscendPrint","Default","Index",1))
if  Index<1 then  Index=1  
if Copies<1 then Copies=1  
for i=1 to Copies
Index=Index+1
on error resume next
activesheet.cells(2,8)= "NO:" & application.text(Index,"0000000000")  
if err.number then activesheet.cells(2,8).value= "NO:" & application.text(Index,"0000000000")      
  activesheet.PrintOut Copies:=1  
  doevents        
  next
  savesetting "AscendPrint","Default","Index",Index 
End Sub
更多的功能，可参见  百---宝...箱..V/1/0.0

用设置什么的，可能没什么用，这个得用VBA写代码。