批文件打印
批文件打印
提问于 2010-11-11 14:07:31
我有一个用户，必须打印出大约220个文件，平均每个2-3页。当使用标准Windows方法选择全右击打印时，它会压倒打印服务器或打印机本身。我正在寻找一个实用程序，它将允许我每次处理5个文档，这些文档将处理给定目录中的所有文档。我希望这将减轻打印服务器的压力，也将允许用户不必照看他的打印工作。我找到了一个可以让你安排一段时间的打印作业，但是(也许这不是一个破折号)程序中的拼写是非常糟糕的。
回答 2
Server Fault用户
发布于 2014-06-27 21:54:02
回答一个建立声誉点的老问题:P
这个VBS打开并打印一个单词doc：
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("c:\scripts\inventory.doc")
objDoc.PrintOut()
objWord.Quit此VBS循环遍历文件夹中的文件：
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Scripts"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next此VBS导致PC等待60秒，以免压倒打印服务器：
WScript.sleep 60000将这些因素结合起来：
Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Scripts"
Set objFolder = objFSO.GetFolder(objStartFolder)
Set colFiles = objFolder.Files
For Each objFile in colFiles
Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open(objFile)
objDoc.PrintOut()
objWord.Quit
WScript.sleep 60000
Next将"objStartFolder“更改为单词docs所在的文件夹，并确保该文件夹中只有word docs。将代码保存到文本文件中，并将扩展名更改为"vbs“。它可以通过双击或窗口调度程序启动，所以您可以在半夜启动它，也可以启动它。
Server Fault用户
发布于 2010-11-11 19:11:40
(假设你说的是MS )我并不是一个词汇专家，但你可以使用一些VBA来完成这个任务，从脚本中启动winword.exe。我见过它，但从来没有足够的参与提供更多的信息。
页面原文内容由Server Fault提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://serverfault.com/questions/200781
复制相关文章
相似问题
腾讯云开发者
