Word打印如何编码页数

发布网友发布时间：2022-04-19 13:05

我来回答

共5个回答

热心网友时间：2023-09-16 19:07

第一步

首先找到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

End Sub

第三步

把输入光标放在你想要添加打印份数编号的地方，然后运行宏，会弹出如下窗口，第一个窗口是输入打印份数，第二个窗口是输入起始数字，如图。

热心网友时间：2023-09-16 19:07

那你就编辑好一张以后复制49张放在后面，然后编辑页眉页脚，插入页码，这样就会出现逆想要的那种效果了

热心网友时间：2023-09-16 19:08

在word的菜单栏中插入--->页码
选择页码后就可以在每页自动显示每页当前的页数了
打印的时候也就会有相应的页数.

热心网友时间：2023-09-16 19:08

菜单-插入-页码-设置页码格式

热心网友时间：2023-09-16 19:09

给word添加页尾，在页尾处选择自动添加页码，他会自动排还页码的，还能选择页码形式

首页

文章

Word打印如何编码页数