选择默认打印机的问题

Grant

给你做了些简化,还是睡觉了,没有细细去看不知道符合效果否

窗体部分

1. Private Sub Combo75_AfterUpdate()
   
2.    Call DefaultPrinter(Me.Combo75.Text)
   
3. End Sub
   
4. 
   
5. Private Sub Form_Open(Cancel As Integer)
   
6.     Me.Combo75.RowSourceType = "Value List"
   
7.    Me.Combo75.RowSource = GetPrinters
   
8.    Me.Combo75 = prtDefaultIndex
   
9. End Sub

复制代码

模块部分

1. Public prtDefaultIndex As Long
   
2. 
   
3. Public Function DefaultPrinter(PrinterName)
   
4. 
   
5.     Dim Ofs As IWshNetwork_Class
   
6.     Set Ofs = New IWshNetwork_Class
   
7.     Ofs.SetDefaultPrinter (PrinterName)
   
8.     DefaultPrinter = True
   
9. 
   
10. End Function
    
11. 
    
12. Public Function GetPrinters() As String
    
13.     Dim i As Integer
    
14.    
    
15.     For i = 0 To Application.Printers.Count - 1
    
16.         GetPrinters = GetPrinters & ";" & i & "," & Application.Printers(i).DeviceName
    
17.         
    
18.         If Application.Printer.DeviceName = Application.Printers(i).DeviceName Then
    
19.             prtDefaultIndex = i
    
20.         End If
    
21.         
    
22.     Next i
    
23. 
    
24.     GetPrinters = Mid(GetPrinters, 2)
    
25. 
    
26. End Function

复制代码

Grant

奇怪我用了,都不需要重启啊

Grant

你之前的确实是需要重启,我修改过后我这里一点就行,不需要重启

Grant

不需要重启Access,回帖后我又去测试了一遍,我是打开了打印机设置项看着变化的,默认打印机也跟随改变了

Grant

你不会是想改Access默认打印吧,那方法错了,和改系统默认打印是两回事

改Access默认打印更简单了

1. Dim prtDefault As Printer
   
2. 
   
3. Set Application.Printer = Application.Printers(0)
   
4. 
   
5. Set prtDefault = Application.Printer
   
6. 
   
7. With prtDefault
   
8.     MsgBox "Device name: " & .DeviceName & vbCr _
   
9.         & "Driver name: " & .DriverName & vbCr _
   
10.         & "Port: " & .Port
    
11. End With
    

复制代码

Grant

Access每次打开都会读取一次系统默认打印机,所以就照成了你为什么需要一定重启一次ACCESS,你可以采用
更改Access默认的打印机,也可以更改系统默认打印机后,重启Access重新加载打印机或者再次更改Access默认打印机

Grant

上传一例子你参考