VBA 指定打印机打印

YANWEI82123300

太强大了，解决了我的难题！

宜信

hzruziniu 发表于 2016-3-2 23:35
补充内容 (2020-1-9 22:27):
还可以用列表框选择打印机
Private Sub ListBox1_Click()

您好！如果想利用窗体控件的下拉框格显示所有打印机名称怎么修改？谢谢！

hzruziniu

宜信 发表于 2021-8-7 15:35
您好！如果想利用窗体控件的下拉框格显示所有打印机名称怎么修改？谢谢！

‘在窗体中用ComboBox下拉选择打印机

1. '===============下拉选择打印机
   
2. Private Sub ComboBox1_Change()
   
3. Dim s$, ws As Object
   
4. s = ComboBox1.Text
   
5.     Set ws = CreateObject("wscript.network")
   
6.     ws.SetDefaultPrinter s
   
7. End Sub
   
8. 
   
9. '===============窗体初始化生成打印机下拉列表
   
10. Private Sub UserForm_Initialize()
    
11.     Dim i&, ws As Object, ptn$, arr() As String, n&, m&
    
12.     Set ws = CreateObject("wscript.network")
    
13.     n = ws.EnumPrinterConnections.Count
    
14.     ReDim arr(1 To n / 2)
    
15.     For i = 1 To n - 1 Step 2
    
16.         ptn = ws.EnumPrinterConnections.Item(i)  '打印机名称
    
17.         m = (i - 1) / 2 + 1
    
18.         arr(m) = ptn
    
19.     Next
    
20.     Me.ComboBox1.List = Application.Transpose(arr)
    
21. End Sub

复制代码

宜信

hzruziniu 发表于 2021-8-9 02:08
‘在窗体中用ComboBox下拉选择打印机

正是自己想要的，感谢！感谢！

rrxfw

牛啊，想要这个功能呢

[V]

真好！正需要这个案例！感谢分享~

lzr122

hzruziniu 发表于 2016-3-2 23:35
补充内容 (2020-1-9 22:27):
还可以用列表框选择打印机
Private Sub ListBox1_Click()

Sub 在代码中直接写入打印机名()
    Set net = CreateObject("WScript.Network")
    net.SetDefaultPrinter "Jolimark FP-570K"
    ActiveSheet.PrintPreview  '打印预览
    net.SetDefaultPrinter "HP LaserJet Professional P 1102w"
End Sub

Sub 在工作表中引用打印机名()
    Set net = CreateObject("WScript.Network")
    net.SetDefaultPrinter Range("L1")
    ActiveSheet.PrintPreview  '打印预览
    net.SetDefaultPrinter Range("L2")
End Sub

这个算是对象属性？

ardu95

太好了，学习收藏

无雨谷

太好了，学习收藏

xvjiex

很实用，完美实现打印机选择！感谢分享！