获取所有打印机全称，供Printout方法调用

yangyangzhifeng

找了一下，好像论坛还没有完整的方法，算是抛砖引玉吧！
为什么整这个，因为有时需要为每个工作表指定不一样的打印机，而后批量打印
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
    

复制代码

vexk

嗯,留着以后有用,LZ这样的好人肯定要顶

yangyangzhifeng

输出到工作表吧

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

复制代码

461992064

直接上附件呀

luogu

已经解决了,是端口,问题,

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

后面的 Ne01,Ne02

liuninglook

yangyangzhifeng 发表于 2012-12-17 11:21
输出到工作表吧

无法输出          无反应

liuninglook

liuninglook 发表于 2015-11-17 16:44
无法输出          无反应

解决了 楼主代码没问题

蔡明江

收藏了，谢谢楼主分享

yfzdb

st = Application.ActivePrinter    '保存系统默认打印机    ：  这个应该是excel的活动打印机吧。并非系统默认打印机。
ws.SetDefaultPrinter ptn                                            ：  这个变更的是系统的默认打印机的。

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

第Ⅸ夜

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