选择默认打印机的问题

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

t小宝

试了GG在17楼的例子，还是不行，代码有逻辑错误，prtDefaultIndex的值不是想要的值，
其实直接使用打印机名称就行了，不需要用公用变量保存打印机ID。
改变ACCESS默认打印机就一句代码：Set Application.Printer =Application.Printers("打印机名称")
我在6楼贴的也有多余，象下面就行了：
Private Sub Combo75_AfterUpdate()
DoCmd.Hourglass True
   DefaultPrinter (Me.Combo75)
DoCmd.Hourglass False

Set Application.Printer = Application.Printers(CStr(Me.Combo75))

End Sub