作者：乔山办公网日期：
返回目录：excel表格制作
Sub dayin()
dim n as integer
n=inputbox("打印次数zhidao") *1
for i=1 to n
activesheet.PrintOut Copies:=1
[H2]= "NO:" & application.text(i,"0000000000")
next
End Sub
用宏吧，选打印个2张试试内效果，最后用pdf打印机测容试
sub PPrint()
for i=1 to 20 '打印20份
ActiveSheet.PrintOut
s = ActiveSheet.Cells(6, 3)
s = Left(s, 5) & Format(Val(Mid(s, 6)) + 1, "000")
ActiveSheet.Cells(6, 3) = s
next
endsub
若序号在[a1]，则代码为
sub test()
[a1]=format(val([a1].value)+1,"000")
activesheet.printout
end sub
1、首先点击【文件】，如图所示。知
2、然后在打开的信息界面点击【打印】，如图所示。
3、在“打印”界面向下滚动【设置】位置的滚动条，找到并道点击【页面设置】，如图所示。
4、在“页面设置”窗口点击【工作表】选项卡，在【打印】区域找到“行号列标”，勾选其前面的复选框，【确定】回设置生效，如图所示。
5、现在答可以在打印预览中看到表格行和列的编号了，下次再打印该文件时Excel将自动打印这些编号，完成效果图。