首页>工作相关>word利用printout函数设置打印

word利用printout函数设置打印

需要打印几张测试证书,第一页的序列号依次累加,这个倒好办,直接放置一个文本框用Vba填入数据,打印命令完成后删除该文本框,然后循环执行即可。关键第二页需要打印在纸张背面,所以得先打印其中一面,再翻过来打印反面。

打印函数的参数设置之前没有深究,看函数提示英文单词还能辨认出几个,自信爆棚的在From,To项下输入了数字,结果报了个类型不匹配的错误,改成字符吧,倒是成功执行了,只是没有得到预期的结果。骄傲使人落后,谦虚才能进步,老实看手册吧…

PrintOut的参数

名称 需求 数据类型 说明
Background 可选 变量 如果将该属性设置为True ,则Microsoft Word在打印文档时继续运行宏。
Append 可选 变量 设置为True以将指定文档追加到OutputFileName参数指定的文件名。设置为False以覆盖OutputFileName的内容。
Range 可选 变量 页面范围,可以是任何WdPrintOutRange常量。
OutputFileName 可选 变量 如果当为True时,此参数将指定输出文件的路径和文件名称。
From 可选 变量 如果将Range设置为wdPrintFromTo,则该参数指定起始页码。
To 可选 变量 如果将Range设置为wdPrintFromTo,则该参数指定结束页码。
Item 可选 变量 要打印的项目。可以是任何WdPrintOutItem常量。
Copies 可选 变量 要打印的份数。
Pages 可选 变量 要打印的页码和页码范围,中间用逗号分开。例如,"2, 6-10"表示打印第2页以及第6至第10页。
PageType 可选 变量 要打印的页面类型。 可以是任何WdPrintOutPages常量。
PrintToFile 可选 变量 要发送打印机说明文件,请确保指定的文件名称与OutputFileName。
Collate 可选 变量 在打印文档的多份副本时,如果该属性值为True,则完成打印所有页面后再打印下一份副本。
FileName 可选 变量 要打印的文档的路径和文件名称。如果省略此参数,Word将打印活动文档。
ActivePrinterMacGX 可选 变量 该参数仅适用于Microsoft Office Macintosh Edition。有关该参数的其他信息,请参阅Microsoft Office Macintosh Edition附带的语言参考帮助。
ManualDuplexPrint 可选 变量 要在无双面打印组件的打印机上打印双面文档。 如果该参数为True,PrintBackground和PrintReverse属性将被忽略。 PrintOddPagesInAscendingOrder和PrintEvenPagesInAscendingOrder属性用于控制在手动双面打印输出。此参数可能不可用,这取决于您所选择或安装的语言支持(例如美国英语)。
PrintZoomColumn 可选 变量 表示Word在一页纸上水平放置的页数。可以是1、2、3或4页。与PrintZoomRow参数一同使用可在单张纸上打印多页文档。
PrintZoomRow 可选 变量 表示Word在一页纸上垂直放置的页数。可以是1、2或4页。与PrintZoomColumn参数一同使用可在单张纸上打印多页文档。
PrintZoomPaperWidth 可选 变量 Word要将打印页面缩放到的宽度,以缇为单位(20缇=1磅;72磅=1英寸)。
PrintZoomPaperHeight 可选 变量 您希望Word将打印页面缩放到的高度,以缇为单位(20缇=1磅;72磅=1英寸)。

WdPrintOutRange取值

名称 描述
wdPrintAllDocument 0 整个文档
wdPrintCurrentPage 2 当前页
wdPrintFromTo 3 指定范围
wdPrintRangeOfPages 4 指定的页面范围
wdPrintSelection 1 当前所选内容

打印实例

原来除了From,To之外,还需要指定一个Range参数,取值见上表。想要单独打印第一页,命令可以写成这样:

ActiveDocument.PrintOut , , wdPrintFromTo, , "1", "1"

打印当前页就更简单了,只需要将Range的值设置为wdPrintCurrentPage就可以了:

ActiveDocument.PrintOut , , wdPrintCurrentPage

也可以只打印当前选中的内容:

ActiveDocument.PrintOut ,,wdPrintSelection

不想或者不方便按顺序来写参数的时候可以加上参数名称,比如下面的语句可以将当前页面缩放至原页面的1/4后打印输出:

ActiveDocument.PrintOut Range:=wdPrintCurrentPage, PrintZoomColumn:=2, PrintZoomRow:=2

标签: office

移动端可扫我直达哦~

推荐阅读

office 2024-10-08

WIN7系统如何共享WIN10的打印机

迫于农行网银升级的压力,给单位的财务电脑升级到了win10,重装后考虑到可能需要打印机共享,所以提前设置了相同的工作组,以便同工作组内的设备相互识别,当然装完系统后也设置好了打印机共享。但是同办公室的win7倒也是识别到了同组中的wi...

工作相关 office

office 2024-07-26

如何将证件照的蓝底修改为白底

想给孩子报名参加csp-j入门组的比赛,体验一下比赛的流程与难度,报名需要提交一张白底的照片,但手头上的照片是蓝色背景的。用ps的魔棒工具直接选取之后,衣服部分的效果尚可,但发丝部位还是有蓝色残留,效果比较粗糙。有过ps的使用经验(但...

工作相关 office

office 2024-04-17

iphone用相机提取照片中的文字

随着手机像素越来越高,平时拍个产品照片,发货唛头什么的绰绰有余,所以自从单位的拍照用的数码相机损坏之后,也没有考虑再次购入,直接用手机操作一下就好。手机集成的功能越来越多,无形中挤掉了很多旧有单一功能电子产品的市场。博主之前一直用的i...

工作相关 office

office 2024-04-02

Coreldraw报错“向程序发送命令时出现问题”

想尝试创建一个使用于全局的宏命令,以实现一个跨文件的小功能,但发现在全局模块内插入时无法保存gms文件,在当前文件内的模块则可以正常保存。既然有保存按钮,按理不应该出现这种情况,考虑到Coreldraw程序被博主安装到了c盘,而c盘文...

工作相关 office

office 2024-03-29

Coreldraw中无法直接粘贴QQ截图

工作多更多的使用台式机,办公需要联络的合作伙伴也都加了QQ,所以一般也都以QQ相互联系。一方面QQ该有的功能都有满足需求,另一方面也能更好的区分公私环境。记得早先Coreldraw是可以直接粘贴QQ截图的,但架不住QQ隔三岔五的更新,...

工作相关 office

office 2023-12-26

硬盘空间不足导致pdf文件打印空白一例

同事的电脑安装的win7,c盘分的比较小---60个g,公司的电脑,办公用的,安装了许多办公软件开票软件之类,重装涉及一堆操作,所以也一直没有去改它,日积月累的,很快60个g就快满了。某天同事找博主,说pdf格式的文件无法打印,于是过...

工作相关 office

office 2023-12-21

多页面PDF文件导入CorelDRAW时出现IO读错误

合作的客户有时候会要求在产品上粘贴订制的标签,标签上包含序列号,客户有时候订制几十个产品,就发过来几十页的pdf文件,每一页一出二,粘贴在箱子的两侧。为了实现这类pdf文件的打印,博主尝试写了一段小程序,首先依次导入页面,然后挨个打印...

工作相关 office

office 2023-12-12

word自动打印编号时如何跳过指定序列号

上班摸鱼小技巧重复的工作做得多了,难免会想要偷个小懒,利用编程的方式来自动化一些工作流程,从而可以忙里偷闲,在自动化工作期间泡一杯茶,看一眼微信未读信息。于是写了这样一段代码,来实现word的自动化打印:Dim posY As Dou...

工作相关 office

office 2023-09-19

电脑端QQ如何恢复聊天记录

个人电脑上的聊天记录有一波没一波的,大多是插科打诨。所以装了很多台电脑,基本没人提出,也没考虑过去恢复一下QQ的聊天记录。但工作用的电脑就不一样了,很多客户有文件往来,有些订单确认沟通的的过程也是在QQ上完成的。安装QQ的时候会让用户...

工作相关 office

office 2023-09-18

WIN7如何显示并修改已知文件的扩展名

新安装的系统,默认一般都是隐藏已知文件的扩展名的,在实际使用中,特别是工作中,经常需要查看并修改文件的后缀,这个时候就需要修改电脑的设置,让计算机自动显示文件的扩展名。首先双击桌面上的计算机图标,进入磁盘文件管理界面;单击左上角的组织...

工作相关 office