VBA 指定打印机打印

tt185

   由于单位需要套打证件，电脑上安装有多台打印机，套打时需指定用针式打印机，在论坛学习良久，现将自己学习组合的打印程序发出共享。可在Sheet1表里面建一个命令按钮来调用。第一次运行时选择自己需要的打印机并写入设置，以后可直接指定打印机打印。   

1. Function NameExist(sName As String) As Boolean    '判断定义名称是否存在函数
   
2. Dim NameCount As Integer
   
3. NameExist = False
   
4. For NameCount = 1 To Workbooks(1).Names.Count
   
5.     If Workbooks(1).Names(NameCount).NameLocal = sName Then
   
6.         NameExist = True
   
7.         Exit Function
   
8.     End If
   
9. Next
   
10. End Function
    
11. 
    
12. Private Sub FindPrint()  '判断指定的打印机是否存在
    
13.       If Application.ActivePrinter = Evaluate(ActiveWorkbook.Names("printname").Value) Then
    
14.      Exit Sub
    
15.      Else
    
16.           Call Printsetup    '调用打印机设置并定义名称
    
17.           Exit Sub
    
18.     End If
    
19. End Sub
    
20. 
    
21. Private Sub Printsetup()    '调用打印机设置并定义名称，把设定的打印机写入Excel名称
    
22. Dim n As Boolean, dyj$
    
23.     n = Application.Dialogs(xlDialogPrinterSetup).Show       '调用打印机设置
    
24.       If n = True Then
    
25.         dyj = Application.ActivePrinter
    
26.         ActiveWorkbook.Names.Add Name:="printname", RefersTo:=dyj   '写入名称
    
27.       Exit Sub
    
28.       End If
    
29. End Sub
    
30. 
    
31. Private Sub CommandButton1_Click()      '打印
    
32. Dim n As Boolean, dyj$
    
33. If NameExist("printname") Then '判断是否有打印机名称定义存在，如没有调用打印机设置
    
34. Dim printyb, duankou, i%, j%
    
35. Call FindPrint  '判断指定的打印机是否存在
    
36. Sheet1.PrintOut Application.ActivePrinter = Evaluate(ActiveWorkbook.Names("printname").Value)
    
37. Else
    
38.     Call Printsetup  '调用打印机设置
    
39.     Sheet1.PrintOut Application.ActivePrinter = Evaluate(ActiveWorkbook.Names("printname").Value)   '打印Sheet1表格，可自行设定。
    
40. End If
    
41. End Sub
    

复制代码

tt185

自己感觉判断系统是否有安装指定打印机的语名有点不对，请版主能否想个办法，否则每次都跳出选择打印机

nmcfbgttyl

太好用了，谢谢分享！

hzruziniu

1. 如果你默认打印机为激光，当打印某表时需用针式打印机
   
2. 可设置以下代码点击按扭时改为针式，打好后又恢复激光
   
3. Sub 在代码中直接写入打印机名()
   
4.     Set net = CreateObject("WScript.Network")
   
5.     net.SetDefaultPrinter "Jolimark FP-570K"
   
6.     ActiveSheet.PrintPreview  '打印预览
   
7.     net.SetDefaultPrinter "HP LaserJet Professional P 1102w"
   
8. End Sub
   
9. 
   
10. Sub 在工作表中引用打印机名()
    
11.     Set net = CreateObject("WScript.Network")
    
12.     net.SetDefaultPrinter Range("L1")
    
13.     ActiveSheet.PrintPreview  '打印预览
    
14.     net.SetDefaultPrinter Range("L2")
    
15. End Sub

复制代码

补充内容 (2020-1-9 22:27):
还可以用列表框选择打印机
Private Sub ListBox1_Click()
    Dim i&, s$, ws As Object
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
            s = ListBox1.List(ListBox1.ListIndex, 0)
        End If
    Next
    Set ws = CreateObject("wscript.network")
    ws.SetDefaultPrinter s
End Sub


'===============窗体初始化生成打印机列表
Private Sub UserForm_Initialize()
    Dim i&, ws As Object, ptn$, arr() As String, n&, m&
    Set ws = CreateObject("wscript.network")
    n = ws.EnumPrinterConnections.Count
    ReDim arr(1 To n / 2)
    For i = 1 To n - 1 Step 2
        ptn = ws.EnumPrinterConnections.Item(i)  '打印机名称
        m = (i - 1) / 2 + 1
        arr(m) = ptn
    Next
    Me.ListBox1.List = Application.Transpose(arr)
End Sub

'====================打印
Private Sub CommandButton1_Click()
    Dim i&, a&, b&, s$
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) = True Then
          '  s = ListBox1.List(ListBox1.ListIndex, 0)
            a = 1
            b = Range("d7")
            For i = a To b
                Range("A1:D10").PrintOut
                Range("h2") = Range("h1") + i
            Next
        Else
            MsgBox "请先选择打印机型号"
        End If
    Next
End Sub

amtf995

hzruziniu 发表于 2016-3-2 23:35

太好了，感谢分享，完美实现打印机选择！

dazebat

啊嘞，你这个代码啊，一颗赛艇！基本可以结束全部关于vba选打印机的问题喽。

zhanghg3

感谢感谢，这段代码帮了大忙了！

hwd6

hzruziniu 发表于 2016-3-2 23:35

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

robinvip

学习了，现在在研究VBA

cxmgxl

太好了，正找着呢