ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 Excel Home精品图文教程库
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
300集Office 2010微视频教程 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 19794|回复: 11

[分享] 获取所有打印机全称,供Printout方法调用

[复制链接]

TA的精华主题

TA的得分主题

发表于 2012-12-15 20:08 | 显示全部楼层 |阅读模式
本帖已被收录到知识树中,索引项:脚本语言应用
本帖最后由 yangyangzhifeng 于 2012-12-16 10:57 编辑

找了一下,好像论坛还没有完整的方法,算是抛砖引玉吧!
为什么整这个,因为有时需要为每个工作表指定不一样的打印机,而后批量打印
http://club.excelhome.net/forum.php?mod=viewthread&tid=957782&page=1#pid6565472
上面这个链接,就提出了这种要求。
worksheets("????").PrintOut ActivePrinter:=???像这样调用就好了
  1. Sub allprinter()
  2.     Dim i&, ws As Object, st$, ptn$, arr() As String, n&
  3.     Set ws = CreateObject("wscript.network")
  4.     st = Application.ActivePrinter '保存系统默认打印机
  5.     n = ws.EnumPrinterConnections.Count
  6.     ReDim arr(1 To n / 2)
  7.     For i = 1 To n - 1 Step 2
  8.         ptn = ws.EnumPrinterConnections.Item(i)  '打印机名称
  9.         ws.SetDefaultPrinter ptn
  10.         If InStr(st, ptn) Then st = ptn
  11.         arr((i - 1) / 2 + 1) = Application.ActivePrinter
  12.     Next
  13.     ws.SetDefaultPrinter st '恢复系统默认打印机
  14. End Sub
复制代码

评分

2

查看全部评分

TA的精华主题

TA的得分主题

发表于 2012-12-15 21:39 | 显示全部楼层
嗯,留着以后有用,LZ这样的好人肯定要顶

TA的精华主题

TA的得分主题

 楼主| 发表于 2012-12-17 11:21 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
输出到工作表吧
  1. Sub allprinter()
  2.     Dim i&, ws As Object, st$, ptn$, arr() As String, n&
  3.     Set ws = CreateObject("wscript.network")
  4.     st = Application.ActivePrinter    '保存系统默认打印机
  5.     n = ws.EnumPrinterConnections.Count
  6.     ReDim arr(1 To n / 2)
  7.     For i = 1 To n - 1 Step 2
  8.         ptn = ws.EnumPrinterConnections.Item(i)  '打印机名称
  9.         ws.SetDefaultPrinter ptn
  10.         If InStr(st, ptn) Then st = ptn
  11.         arr((i - 1) / 2 + 1) = Application.ActivePrinter
  12.     Next
  13.     ws.SetDefaultPrinter st    '恢复系统默认打印机
  14.     Sheet1.UsedRange.ClearContents
  15.     Sheet1.[a1] = "系统所有打印机"
  16.     Sheet1.Range("a2").Resize(UBound(arr)) = Application.Transpose(arr)
  17. End Sub
复制代码

TA的精华主题

TA的得分主题

发表于 2014-3-15 21:26 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2014-6-14 20:54 | 显示全部楼层
已经解决了,是端口,问题,

系统所有打印机
EPSON WF-2531 打印机 在 Ne02:
EPSON WF-2531 传真机 在 Ne00:
Epson LQ-1600K 在 Ne01:

后面的 Ne01,Ne02

TA的精华主题

TA的得分主题

发表于 2015-11-17 16:44 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2015-11-25 09:01 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2015-11-25 09:02 | 显示全部楼层

TA的精华主题

TA的得分主题

发表于 2016-3-25 11:33 | 显示全部楼层
st = Application.ActivePrinter    '保存系统默认打印机    :  这个应该是excel的活动打印机吧。并非系统默认打印机。
ws.SetDefaultPrinter ptn                                            :  这个变更的是系统的默认打印机的。

以上代码,当手动选择一次打印机后,就无效了。



TA的精华主题

TA的得分主题

发表于 2019-1-8 11:28 | 显示全部楼层
Sub tt()
Set WshNetwork = CreateObject("WScript.Network")
Set oPrinters = WshNetwork.EnumPrinterConnections
Debug.Print "Printer mappings:"
For i = 0 To oPrinters.Count - 1 Step 2
   Debug.Print "Port " & oPrinters.Item(i) & " = " & oPrinters.Item(i + 1)
Next
Debug.Print "ActivePrinter = " & Application.ActivePrinter
End Sub
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-6-12 23:55 , Processed in 0.040915 second(s), 10 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

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