首先找到Word里的宏按钮
弹出宏查看窗口,起一个名字然后选择创建
在弹出的宏录制窗口内输入宏代码,然后保存,宏代码见下方。
把输入光标放在你想要添加打印份数编号的地方,然后运行宏,会弹出如下窗口,第一个窗口是输入打印份数,第二个窗口是输入起始数字
宏代码如下:
Sub PrintCopies()
Macro1 Macro
Dim i As Long
Dim lngStart
Dim lngCount
lngCount = InputBox(“Please enter the number of copies you want to print”, “Please enter the number of copies you want to print”, 1)
If lngCount = “” Then
Exit Sub
End If
lngStart = InputBox(“Enter the starting number you want to print”, “Enter the starting number you want to print”, 1)
If lngStart = “” Then
Exit Sub
End If
For i = lngStart To lngCount
If i < 10 Then
Selection.TypeText Text:=”000″ & i&
Application.PrintOut FileName:=”", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=”", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End If
If (i >= 10) And (i < 100) Then
Selection.TypeText Text:=”00″ & i&
Application.PrintOut FileName:=”", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=”", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End If
If (i >= 100) And (i < 1000) Then
Selection.TypeText Text:=”0″ & i&
Application.PrintOut FileName:=”", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=”", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End If
If (i >= 1000) And (i < 10000) Then
Selection.TypeText Text:=i
Application.PrintOut FileName:=”", Range:=wdPrintAllDocument, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:=”", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
End If
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Selection.TypeBackspace
Next
End Sub
Excel 怎么设置编号每打印一次自动递增
第一步,在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》确定,输入打印份数
证件打印用什么软件最好呢?
你可以百度 飚风证件证书打印软件 是专业打印证件证书的软件
1、支持摄像头拍照,现场做证,一般用在大型会议制作出入证等场合
2、支持绑定excel批量打印
3、支持按客户需求制作模版
4、支持客户自定义模版
怎么打印带有自动编号的胸牌?100悬赏
可以用EXCEL的智能填兖功能,就是输入7-001然后点这个单元格右下角的黑点向下拉就可以得所有的缟号,设定好之后再调整下就可以打印
同一个PDF文件,怎么添加打印序号(编号)求!
1、在比如A100单元格输入个空格(或任何字符)
2、在“页面设置”的“打印标题”中将一张单据区域整个设置为“顶端标题行”
3、用页眉或页脚设置“编号”为:2009000&[页码]
4、打印时,设置打印页码范围为1至180页即可。
能再具体点嘛?没有理解。
有什么条码批量打印软件,每张条码编号都不一样的
建议买条码打印机 这样机器自带的免费软件就能实现你 的要求
有两种打法 一是 变量 序列号式
二 数据库式 你可以把要打印的编到EXECL里,从打印机软件里选择数据库打印
什么是电脑文档的编号、打印、排版和归档?
简单,应该是刚刚工作的人吧,对电脑不熟悉。编号其实就是我们说的重命名,右键单击文档就可以看见。 打印,你应该用的CAD吧,按ctrl+p打印出现这样的对话框 打印机\绘图仪项 选择你的打印机,然后图纸尺寸里选择你需要的纸张尺寸。打印区域打印范围里选择窗口然后cad的操作界面会出现个十字你按住左键拖出你想要的范围,居中打印。打印比例如果要求有比例的话就把布满图纸勾去,填入图纸的比例。然后右下角图形方向选择纵向还是横向。左下角预览下。合适的话右键打印就可以了。排版也就是横竖,也一下就好,归档就是保存
文件自动编号工具及文件名打印
可以啊
进入DOS模式
通过命令进入MP3所在文件夹(比如在D:/MP3
CD D:/MP3
DIR D:/NAME.TXT
这样文件名就保存起来了.
之后把这些复制到EXCEL(电子表格)中,再进行编号..如果你不会使用EXCEL,就比较麻烦了。
转载请注明出处51数据库 » 编号打印软件 如何在word文档打印时自动编号