找回密码
 加入
搜索
查看: 3478|回复: 2

[系统综合] 修改打印机内容的方法(已解决)

[复制链接]
发表于 2011-6-1 08:53:43 | 显示全部楼层 |阅读模式
本帖最后由 CCM 于 2011-6-1 16:12 编辑

最近办公室更换打印机,数量约二十多台。

目前已有批次安装驱动程序的工具,不过每台打印机都有另外添购一个可放五百张纸的纸匣。这个纸匣需要到驱动程序内去选取已安装三号纸匣才能作用,不知道有没有人写过类似的工具可以去添加。

再来因为我们打印机名称会在后面加上编号,方便办公室同仁辨识,如HP Laserjet 3050 (P001),而且根据区域编号都不同,所以来问问看各位前辈有没有类似的经验可以指导一下。

不然就得一台一台去USER的计算机手动修改…@@||

找到一篇:http://www.autoitx.com/forum.php ... =%B4%F2%D3%A1%BB%FA

PrinterProperties 启动打印机属性对话框,以便对打印机进行配置

但...該怎麼用?
 楼主| 发表于 2011-6-1 16:11:52 | 显示全部楼层
後来用这个方法解决
Global $defPrtNm
;;; Get default Printer;
Func _GetDefaultPrinter() ; CyberSlug - 18 Nov 2004 (别人心血我不删掉)
        Local $key, $default
        $key = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Print\Printers"
        $default = RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows NT\CurrentVersion\Windows", "Device")
        $defPrtNm = StringLeft($default, StringInStr($default, ",") - 1)
        Return $defPrtNm
EndFunc   ;==>_GetDefaultPrinter

$prt = _GetDefaultPrinter()
Run("RUNDLL32 PRINTUI.DLL,PrintUIEntry /p /n ""\" & @IPAddress1 & "" & $prt)
sleep(500)
Send("^+{TAB 2}")
Sleep(500)
Send("{down 11}")
Sleep(500)
ControlCommand("HP LaserJet", "", "ComboBox1", "SelectString", "已安裝")
Sleep(500)
Send("{up 7}")
Sleep(500)
ControlCommand("HP LaserJet", "", "ComboBox1", "SelectString", "A4")
Sleep(500)
Send("{ENTER}")
发表于 2013-11-9 21:42:55 | 显示全部楼层
收下,好好学习天天向上
您需要登录后才可以回帖 登录 | 加入

本版积分规则

QQ|手机版|小黑屋|AUTOIT CN ( 鲁ICP备19019924号-1 )谷歌 百度

GMT+8, 2024-11-15 16:32 , Processed in 0.077772 second(s), 23 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表