方法:点击视图视窗里面的宏按钮,选择 查看宏 即会出现以上窗口, 输入 PrintCopies 做为 名字. 然后选择创建新建, 会出现一个代码框,把里面以前的代码清空,将以下代码复制进去,点击保存就完成 PrintCopies 宏的安装了。
运行: 把光标放在希望插入打印份数编号的位置,设置好打印机,然后打开如上窗口,里面会有出现一个叫做 PrintCopies 的宏, 选上,然后单击运行,会出现2个框“Please enter the number of copies you want to print”和“Enter the starting number you want to print”。 分别输入相应打印的份数和起始编号,打印机就会自动按照你的设定和以上要求来完成打印。 如果提示保存要选.docm格式
---------------------
WPS里面使用方法(仅测试过WPS,没安装OFFICE)
1.先打开这个文档,启用宏。
2.打开要打印的文档,把光标放在要打印的地方
3.然后视图---宏--选Printcopies,运行,填入打印份数,填入起始号码。
以下是代码
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
温馨提示:答案为网友推荐,仅供参考