请教：如何转移打印任务

henterwu · 发表于 2005-1-8 07:51

有个局域网，计算机不少，打印机寥寥。所以大多数设的是网络打印机。如何使不能检测到网络打印机1后自动转移打印任务到其他的网络打印机？

不知能否实现？请高手指教！！！

守柔 · 发表于 2005-1-8 08:09

通常会设置几个网络打印机，看你的意思，有好几个网络打印机，各个之间的区别是什么？

henterwu · 发表于 2005-1-8 08:34

区别是共享名不同，型号也不同，请守柔老师指点。谢谢！！！

守柔 · 发表于 2005-1-8 10:54

请参：

本示例显示活动打印机名称。

MsgBox "The name of the active printer is " & ActivePrinter

本示例将网络 HP LaserJet IIISi 打印机设置为活动打印机。

Application.ActivePrinter = "HP LaserJet IIISi on \\printers\laser"

本示例将 LPT1 端口的本地 HP LaserJet 4 打印机设置为活动打印机。

Application.ActivePrinter = "HP LaserJet 4 local on LPT1:"

henterwu · 发表于 2005-1-8 13:03

谢谢，研究一下。我想在一个问题只检测网络是否通还不够（打印机未打开）。能否遍历网络打印机的活动状态？

非API出场吗？难！！！

守柔 · 发表于 2005-1-8 13:08

能不能这样考虑（我没试过），假设在当前打印机下，一段时间内打印机托盘仍未消失，则关闭，换成另外一台打印机进行重新打印？

henterwu · 发表于 2005-1-8 16:28

以下是引用守柔在2005-1-8 13:08:00的发言： 能不能这样考虑（我没试过），假设在当前打印机下，一段时间内打印机托盘仍未消失，则关闭，换成另外一台打印机进行重新打印？

如何化字为码？能否考虑成超过响应时间就转机，好像更容易实现。

那如何表达If WaitTime > 网络打印机1.响应时间 Then

守柔 · 发表于 2005-1-16 09:23

API 我是外行.

如果你不介意的话,可以参阅该贴子及该贴子中的相关链接,可否对你有所帮助.

七叶一枝梅 · 发表于 2005-1-16 10:35

试了一下用VBA没有做成功，用VBS倒像可以，既然打印机数不多，干脆做成一个列表，然后分别去建立连接，连成功了的自然就是能了的。

代码用“WScript.Network”对象；

添加打印机连接：

set wn=WScript.CreateObject("WScript.Network")

wn.addPrinterConnection"LPT1","\\第一机\打印机名"

只需用代码循环"\\第一机\打印机名"即可。

Robinhuang · 发表于 2005-1-16 11:39

我这又有一个新问题。有一个文档一定要指定A打印机来打印。但是由于这台电脑用的人多，不能保证当前默认的打印机就是A，假设当前默认的为B,怎样样设置在打印这个文档的时候，修改默认打印机为A,打印完成后改为B

		自动登录	找回密码
密码			免费注册