word对象怎样才能后台打印？

肥肥得

  

子程序名	返回值类型	公开	备 注
word文本打印

变量名	类 型	静态	数组	备 注
word	对象
doc	对象

CoInitialize (0)
如果 (word.创建 (“Kwps.application”, ))
调试输出 (“wps对象创建”)

如果 (word.创建 (“Word.Application”, ))
调试输出 (“office对象创建”)

调试输出 (“系统没有安装wps和office”)


doc ＝ word.读对象型属性 (“Documents”, ).对象型方法 (“open”, 超级列表框1.取标题 (0, 1))
doc.方法 (“PrintOut”, )
doc.方法 (“Close”, )
word.方法 (“Quit”, )

子程序名	返回值类型	公开	备 注
_开始打印_被单击

i支持库列表	支持库注释
spec	特殊功能支持库
iext	扩展界面支持库一

.版本 2<br /> .支持库 spec<br /> .支持库 iext<br /> <br /> .子程序 word文本打印<br /> .局部变量 word, 对象<br /> .局部变量 doc, 对象<br /> <br /> CoInitialize (0)<br /> <br /> .如果 (word.创建 (“Kwps.application”, ))<br />     调试输出 (“wps对象创建”)<br /> <br /> <br /> .否则<br />     .如果 (word.创建 (“Word.Application”, ))<br /> <br />         调试输出 (“office对象创建”)<br /> <br />     .否则<br />         调试输出 (“系统没有安装wps和office”)<br />     .如果结束<br /> <br /> <br /> .如果结束<br /> <br /> <br /> doc ＝ word.读对象型属性 (“Documents”, ).对象型方法 (“open”, 超级列表框1.取标题 (0, 1))<br /> <br /> <br /> <br /> doc.方法 (“PrintOut”, )<br /> doc.方法 (“Close”, )<br /> word.方法 (“Quit”, )<br /> <br /> .子程序 _开始打印_被单击

怎样设置才能不提示打印进程？

haoren1212

VBScript + Word COM

haoren1212

  

子程序名	返回值类型	公开	备 注
打印Word文档	逻辑型
参数名	类 型	参考	可空	数组	备 注
文档路径	文本型
打印机名称	文本型

变量名	类 型	静态	数组	备 注
Word对象	对象
文档对象	对象

' 创建Word COM对象
如果真 (Word对象.创建 (“Word.Application”, ) ＝ 假)
调试输出 (“创建Word对象失败，请检查是否安装Microsoft Office。”)
返回 (假)
' 设置Visible为假，并禁用所有提醒
Word对象.写属性 (“Visible”, 假)
Word对象.写属性 (“DisplayAlerts”, 假)
Word对象.读对象型属性 (“Options”, ).写属性 (“PrintBackground”, 假)
' 打开指定文档
文档对象 ＝ Word对象.读对象型属性 (“Documents”, ).对象型方法 (“Open”, 文档路径)
如果真 (文档对象.是否为空 ())
调试输出 (“文档打开失败，路径：” ＋ 文档路径)
Word对象.方法 (“Quit”, )
Word对象.清除 ()
返回 (假)

判断 (是否为空 (打印机名称))
' 使用默认打印机打印，不显示任何对话框
文档对象.方法 (“PrintOut”, 假, , , , , , , , , , , , , , , , , , , , , , )
' 打印到指定打印机
文档对象.方法 (“PrintOut”, 假, , , , , , , , , , , , , 打印机名称, , , , , , , , , )
' 关闭文档并退出Word
文档对象.方法 (“Close”, 假)
Word对象.方法 (“Quit”, )
' 释放对象
文档对象.清除 ()
Word对象.清除 ()
返回 (真)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 打印Word文档, 逻辑型<br /> .参数 文档路径, 文本型<br /> .参数 打印机名称, 文本型, 可空<br /> .局部变量 Word对象, 对象<br /> .局部变量 文档对象, 对象<br /> <br /> ' 创建Word COM对象<br /> .如果真 (Word对象.创建 (“Word.Application”, ) ＝ 假)<br />     调试输出 (“创建Word对象失败，请检查是否安装Microsoft Office。”)<br />     返回 (假)<br /> .如果真结束<br /> ' 设置Visible为假，并禁用所有提醒<br /> Word对象.写属性 (“Visible”, 假)<br /> Word对象.写属性 (“DisplayAlerts”, 假)<br /> Word对象.读对象型属性 (“Options”, ).写属性 (“PrintBackground”, 假)<br /> ' 打开指定文档<br /> 文档对象 ＝ Word对象.读对象型属性 (“Documents”, ).对象型方法 (“Open”, 文档路径)<br /> .如果真 (文档对象.是否为空 ())<br />     调试输出 (“文档打开失败，路径：” ＋ 文档路径)<br />     Word对象.方法 (“Quit”, )<br />     Word对象.清除 ()<br />     返回 (假)<br /> .如果真结束<br /> <br /> .判断开始 (是否为空 (打印机名称))<br />     ' 使用默认打印机打印，不显示任何对话框<br />     文档对象.方法 (“PrintOut”, 假, , , , , , , , , , , , , , , , , , , , , , )<br /> .默认<br />     ' 打印到指定打印机<br />     文档对象.方法 (“PrintOut”, 假, , , , , , , , , , , , , 打印机名称, , , , , , , , , )<br /> .判断结束<br /> ' 关闭文档并退出Word<br /> 文档对象.方法 (“Close”, 假)<br /> Word对象.方法 (“Quit”, )<br /> ' 释放对象<br /> 文档对象.清除 ()<br /> Word对象.清除 ()<br /> 返回 (真)

试试这个可以吗，我用虚拟打印机测试是提交打印任务时会出现窗口，打印时因为是虚拟打印机无法测试

肥肥得

haoren1212 发表于 2026-6-10 06:26
[e=1].版本 2
.支持库 spec

刚测试了，还是会有打印机提示的框，打印5个文档，只有第一个打出来了，后面4个都没输出。

yb139

根据我的经验，要实现完全的后台打印，需要注意以下几点：

1. 确保在PrintOut方法中正确设置参数，第一个参数设为假表示不显示打印对话框
2. 关闭Word应用程序的所有可见性设置
3. 处理多个文档打印时的时序问题

建议尝试以下改进代码：

```
Word对象。写属性 ("Visible", 假)
Word对象。写属性 ("DisplayAlerts", 0)  ' 使用0而不是假
Word对象。读对象型属性 ("Options", )。写属性 ("PrintBackground", 真)  ' 启用后台打印

' 打印时明确指定参数
文档对象。方法 ("PrintOut", 假, 假, , , , , , , , , , , , , , , , , , , , , , , )

' 每个文档打印后等待一下再处理下一个
延时循环 (500)
```

另外，批量打印多个文档时，建议复用同一个Word实例，不要频繁创建和销毁对象。