作者:乔山办公网日期:
返回目录:word文档
不要点击快捷工具栏上的打印图标。
点文件——打印,或者按快捷键Ctrl+P,调出打印对话框,在对话框中“打印份数”中输入100即可。
在word中打印时自动添加页数的具体步骤如下百:
我们需要准备的材料分别是:电脑、Word文档。
1、首先我们打度开需要编辑的Word文档,点击选择插入中的“页眉和页脚”。
知查看大图" class="ikqb_img_alink">
2、然后我们在弹出来的窗口中可以看到页眉页脚的标道志,来到第一页最后处,你可以看到页脚,点击页脚中的输入框内,你会看到插入页码的提示。
3、然后我们点击打开版“插入页码”,点击选择想要的样式。
4、之后我们点击选择应用范围为“整篇文档”,点击确权定即可。
按照左下角现实的实际页码打印
在word的工具-宏-宏....中新建名为 MyPrint 的宏命令,然后单击创建,把代码框中的内容全部清空后,将如下代码原样粘贴进来保存即可,然后运行该宏即可实现你的目的(注意:如果你以后打印时,不是默认打印3张,而是其他张数,你得再次打开宏命令对话框,e799bee5baa6e79fa5e98193e59b9ee7ad94365选择MyPrint宏名,然后单击编辑,打开代码窗口,将For后面的数字3修改为你本次所希望的打印份数后保存即可。注意:本宏的适用条件是——该Word文档只有一页,且在执行该宏之前得必须先人工在页脚处插入页码不然打印出来的第一页是没有页码的但随后的就自动有页码了。)
Sub MyPrint()
For i = 1 To 3 '这里的3指的是你本次打印希望打印多少张,如果需要打印100张,将3改成100即可,其他不用动,依次类推。
ActiveDocument.PrintOut '向打印机发送打印内容和指令
waitTime = TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 3) '获得本次打印指令发送的时刻加上延时秒数作为参照
'由于打印一份需要几秒钟时间,每发送一次打印指令,延时3秒,根据打印机速度可调节打印延时数,最多延时6秒,这里延时指定为3秒。
Do While Time < waitTime '空循环,延时未到继续延时的目的
'每打印一张延时3秒
Loop
'以下为打开Word的插入页码对话框和设置页码起始页的对话框对页码进行每打印一页自动将页码加1的设置操作,但是由于采用了VBA来实现,这两个对话框是不显示出来的
With Selection.Sections(1).Headers(1).PageNumbers
.NumberStyle = wdPageNumberStyleArabic
.HeadingLevelForChapter = 0
.IncludeChapterNumber = False
.ChapterPageSeparator = wdSeparatorHyphen
.RestartNumberingAtSection = True
.StartingNumber = .StartingNumber + 1 '每打印一页,页码自动加1
End With
Selection.Sections(1).Footers(1).PageNumbers.Add PageNumberAlignment:= _
wdAlignPageNumberRight, FirstPage:=True
Next i
End Sub