Changing Printers Code produces an error

[Perceptus]

The code below switches printers and then prints a document to the printer. The Print succeeds but I get a error when trying to reset to the printer that was previously set.

    Dim stDocName As String
    Dim strDeviceName As String
    Dim x$
    ' Get Current Printer Device and put it in temp
    x$ = Application.Printer.DeviceName
    ' Select the alternate printer for this form
    strDeviceName = "shop foreman printer"
    Set Application.Printer = Application.Printers("shop foreman printer")
    DoCmd.OpenReport "rptSalesOrderShopCopy", acNormal, , "[SalesOrderID]='" & Me.txtSalesOrderID & "'"
    'Reset to default printer
    strDeviceName = x$
    Set Application.Printer = Application.Printers(strDeviceName)

Thoughts?

[ketbdnetbp]

Perceptus -

Personally, I might try something like...

'Dim stDocName As String
Dim strDeviceName As String
Dim x As Printer
Dim y As String
' Get Current Printer Device and put it in temp
With x
y = Application.Printer.DeviceName
End With
MsgBox y 'See if it returns the original device name. Comment out MsgBox after test
' Select the alternate printer for this form
strDeviceName = "shop foreman printer"
Set Application.Printer = Application.Printers("shop foreman printer")
DoCmd.OpenReport "rptSalesOrderShopCopy", acNormal, , "[SalesOrderID]='" & Me.txtSalesOrderID & "'"
'Reset to default printer
strDeviceName = y
Set Application.Printer = Application.Printers(strDeviceName)

Hope this helps,

Jim

[Perceptus]

Ive been working on this time permitting. Per your suggestion I was wondering if there is a benefit to using optimized code for the value of Y.

[ketbdnetbp]

Perceptus -

I don't know if there would be a benefit or, not? Do you have a suggestion in mind? Lastly, did you get the code working?

Jim

[stmoong]

You can set the printer to print to in the report design, then you don't have to switch in VBA.

If you need to use VBA, then you should be able to do something like this:

    Dim prt as Printer

    'Get the current default printer
    Set prt = Application.Printer

    'Set the default printer
    Application.Printer = Application.Printer("shop foreman printer")

    'Print your report
    DoCmd.OpenReport "rptSalesOrderShopCopy", acNormal, , "[SalesOrderID]='" & Me.txtSalesOrderID & "'"

    'Restore original default printer
    Set Application.Printer = prt