[原创]秒杀本地打印机列表

无痕

问题的提出:LISP调出当前系统中的打印机名称
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=61974

2. ;| (getlocprns) = 获取本地打印机. --------by 狂刀.2007.8
3. 返回: (打印机名1 端口1 印机名2 端口2....) 列表
4. 实例:
5. (getlocprns)
6. ;返回: ("Canon BJC-6500 (BJRSTR)" "LPT1:" "hp deskjet 695c series" "LPT1:")
7. |;
8. (defun getlocprns  (/ wsn prn i lst)
9.   (setq wsn (vla-GetInterfaceObject (vlax-get-acad-object)
10.         "WScript.Network")
11. prn (vlax-invoke wsn 'EnumPrinterConnections)
12. i   -1)
13.   (repeat (vlax-invoke-method prn 'count)
14.     (setq lst (cons (vla-item prn (setq i (1+ i))) lst))
15.     )
16. )

;| (getlocprns) = 获取本地打印机. --------by 狂刀.2007.8 返回: (打印机名1 端口1 印机名2 端口2....) 列表 实例: (getlocprns) ;返回: ("Canon BJC-6500 (BJRSTR)" "LPT1:" "hp deskjet 695c series" "LPT1:") |; (defun getlocprns  (/ wsn prn i lst)   (setq wsn (vla-GetInterfaceObject (vlax-get-acad-object)         "WScript.Network") prn (vlax-invoke wsn 'EnumPrinterConnections) i   -1)   (repeat (vlax-invoke-method prn 'count)     (setq lst (cons (vla-item prn (setq i (1+ i))) lst))     ) )

无痕

其它方法：

2. (setq str "
3. Set WshNetwork = WScript.CreateObject("WScript.Network")
4. Set oPrinters = WshNetwork.EnumPrinterConnections
5. ret = ""
6. For i = 0 to oPrinters.Count - 1 Step 2
7. ret = ret & chr(34) & oPrinters.Item(i+1) & chr(34)
8. Next
9. ret =  "(" & ret &  ")"
10. ")
11. (read (xxvbs str "ret")) -> ("hp deskjet 695c series" "Canon BJC-6500 (BJRSTR)")

(setq str " Set WshNetwork = WScript.CreateObject("WScript.Network") Set oPrinters = WshNetwork.EnumPrinterConnections ret = "" For i = 0 to oPrinters.Count - 1 Step 2 ret = ret & chr(34) & oPrinters.Item(i+1) & chr(34) Next ret =  "(" & ret &  ")" ") (read (xxvbs str "ret")) -> ("hp deskjet 695c series" "Canon BJC-6500 (BJRSTR)")

2. (setq str "
3. strComputer = "."
4. ret = ""
5. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\\\" & strComputer & "\\root\\cimv2")
6. Set colInstalledPrinters =  objWMIService.ExecQuery ("Select * from Win32_Printer")
7. For Each objPrinter in colInstalledPrinters
8.     ret = ret & chr(34) & objPrinter.Name & chr(34)
9. Next
10. ret =  "(" & ret &  ")"
11.       ")
12. (read (xxvbs str "ret")) -> ("hp deskjet 695c series" "Canon BJC-6500 (BJRSTR)")

(setq str " strComputer = "." ret = "" Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\\\" & strComputer & "\\root\\cimv2") Set colInstalledPrinters =  objWMIService.ExecQuery ("Select * from Win32_Printer") For Each objPrinter in colInstalledPrinters     ret = ret & chr(34) & objPrinter.Name & chr(34) Next ret =  "(" & ret &  ")"       ") (read (xxvbs str "ret")) -> ("hp deskjet 695c series" "Canon BJC-6500 (BJRSTR)")

xxvbs 介绍及函数下载地址：

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=62106

无痕

函数介绍和下载，应用实例：

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=62106

fawn_lgc

能不能让程序按照我的图幅(LIMITS 命令设置的系统变量)、比例(参照DIMSCALE或LTSCALE系统变量)等,将打印配置设置好。执行打印命令时直接按"确定"即可完成打印，不再需要进行任何设置。好像曾经打印过一样。

关键是如何才能够,事先用程序将"打印区域"设置为"图形界限"呢?