请教打印窗体时如何调用打印机对话框

yzcg

原来是直接用默认打印机打印窗体UserForm,即

UserForm.PrintForm
现在默认打印机改了，每次先要变更默认打印机，最后还要改回来，易混乱。
请教如何在打印窗体时调用打印机对话框？谢谢！

feilanga

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
    
42. 
    
43. ********************
    
44.     如果你默认打印机为激光，当打印某表时需用针式打印机
    
45.     可设置以下代码点击按扭时改为针式，打好后又恢复激光
    
46.     Sub 在代码中直接写入打印机名()
    
47.         Set net = CreateObject("WScript.Network")
    
48.         net.SetDefaultPrinter "Jolimark FP-570K"
    
49.         ActiveSheet.PrintPreview  '打印预览
    
50.         net.SetDefaultPrinter "HP LaserJet Professional P 1102w"
    
51.     End Sub
    
52. 
    
53.     Sub 在工作表中引用打印机名()
    
54.         Set net = CreateObject("WScript.Network")
    
55.         net.SetDefaultPrinter Range("L1")
    
56.         ActiveSheet.PrintPreview  '打印预览
    
57.         net.SetDefaultPrinter Range("L2")
    
58.     End Sub
    
59.    
    
60. ***************************
    
61. Private Sub ListBox1_Click()
    
62.     Dim i&, s$, ws As Object
    
63.     For i = 0 To ListBox1.ListCount - 1
    
64.         If ListBox1.Selected(i) = True Then
    
65.             s = ListBox1.List(ListBox1.ListIndex, 0)
    
66.         End If
    
67.     Next
    
68.     Set ws = CreateObject("wscript.network")
    
69.     ws.SetDefaultPrinter s
    
70. End Sub
    
71. 
    
72. 
    
73. '===============窗体初始化生成打印机列表
    
74. Private Sub UserForm_Initialize()
    
75.     Dim i&, ws As Object, ptn$, arr() As String, n&, m&
    
76.     Set ws = CreateObject("wscript.network")
    
77.     n = ws.EnumPrinterConnections.Count
    
78.     ReDim arr(1 To n / 2)
    
79.     For i = 1 To n - 1 Step 2
    
80.         ptn = ws.EnumPrinterConnections.Item(i)  '打印机名称
    
81.         m = (i - 1) / 2 + 1
    
82.         arr(m) = ptn
    
83.     Next
    
84.     Me.ListBox1.List = Application.Transpose(arr)
    
85. End Sub
    
86. 
    
87. '====================打印
    
88. Private Sub CommandButton1_Click()
    
89.     Dim i&, a&, b&, s$
    
90.     For i = 0 To ListBox1.ListCount - 1
    
91.         If ListBox1.Selected(i) = True Then
    
92.           '  s = ListBox1.List(ListBox1.ListIndex, 0)
    
93.             a = 1
    
94.             b = Range("d7")
    
95.             For i = a To b
    
96.                 Range("A1:D10").PrintOut
    
97.                 Range("h2") = Range("h1") + i
    
98.             Next
    
99.         Else
    
100.             MsgBox "请先选择打印机型号"
     
101.         End If
     
102.     Next
     
103. End Sub
     
104. 
     

复制代码

yzcg

谢谢提供这么多方法，要好好消化！
本来以为是个吧命令的问题，想简单了