引入延迟以允许完成word doc的打印

时间:2012-05-24 08:30:52

标签: vbscript

我有以下代码从vbscript

打印word文档
Set objWord = CreateObject("Word.Application")
objWord.Caption = "Test"
objWord.Visible = False

Set objDoc = objWord.Documents.Open("c:\test.doc")

'now print to default printer
objDoc.PrintOut()

MsgBox("Finished!")

'close word application
objWord.Quit 0

我想删除消息框并让脚本静默运行并完成,但是当删除消息框的延迟时,脚本会在打印文档之前完成。

有没有办法实现这个目标?

非常感谢

戴夫

1 个答案:

答案 0 :(得分:0)

将其替换为sleep命令,如下所示。 1000是一秒,所以根据需要调整。 200可能适用于您的脚本。

WScript.Sleep 1000