选择默认打印机的问题

JosephTan

我的附件是一个可以列出默认打印机并选择默认打印机的程序模块和一个窗体.

已经可以实用.
可是还不够完善.我目前只能做到重启access来达到改动默认打印机的目的.能否可以做到不需要重启就能修改到?我对windows script host的理解还不行.

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

复制代码

JosephTan

我试过了,不行.还是需要重启access

JosephTan

这个我试过了,在access没有关闭重启以前还是不能真正改动到默认打印机.

JosephTan

因为我没法不重启access改默认打印机所以我在网上找了一个access重启模块加上去,在打印机重启组合框的update后事件调用重启模块进行重启.
不过我还是希望不重启就可以真正改到默认打印机.

t小宝

1楼的代码改成这样就可以了：

Private Sub Combo75_AfterUpdate()
DoCmd.Hourglass True
   DefaultPrinter (Me.Combo75)
DoCmd.Hourglass False

Dim prtDefault As Printer
Set Application.Printer = Application.Printers(CStr(Me.Combo75))
Set prtDefault = Application.Printer

End Sub

kangking

不知道你是要改变系统的默认打印机还是改变ACC默认的打印机？

JosephTan

kangking 发表于 2012-2-13 12:55
不知道你是要改变系统的默认打印机还是改变ACC默认的打印机？

系统的.

Grant

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

Grant

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