Changing Printers in VB

[DAHMB]

Why won't this work? I am using access 2007.

Private Sub btnPrint_Click()
Dim strDefaultPrinter As String

' get current default printer.
strDefaultPrinter = Application.Printer.DeviceName

' switch to printer of your choice:

Set Application.Printer = Application.Printers("Oce cm6520")
DoCmd.PrintOut acPrintAll

'   Swtich back.

Set Application.Printer = Application.Printers(strDefaultPrinter)

End Sub

[ChipR]

What's going wrong when you run the code?

[DAHMB]

I get a runtime error 5, invalid procedure call or argument

[ADezii]

Why won't this work? I am using access 2007.

Private Sub btnPrint_Click()
Dim strDefaultPrinter As String

' get current default printer.
strDefaultPrinter = Application.Printer.DeviceName

' switch to printer of your choice:

Set Application.Printer = Application.Printers("Oce cm6520")
DoCmd.PrintOut acPrintAll

'   Swtich back.

Set Application.Printer = Application.Printers(strDefaultPrinter)

End Sub

Try replacing Line #14 with:

'Reset the Default Printer back to the way it was 
Set Application.Printer = Nothing

[DAHMB]

I tried what you said and it did not work. I get the same error and when I click debug it highlights line 9.

[ChipR]

Are you sure the device name is correct? You can list them all with the code in How to: Retrieve a List of Installed Printers.

[missinglinq]

I believe that being unable to switch from the Default Printer to another printer is a known bug in 2007. Here's a link for the hotfix:

http://support.microsoft.com/kb/950488

Linq ;0)>

[DAHMB]

I got it!! Apparently it is case sensative when it comes to the printers name. Thanks everyone.