Reset to default printer after printing labels

[chromachem]

We have looked at this issue on this forum and elsewhere. Seems to be a common problem with no solution that we are able to find. Should be simple.
No problem switching from the default printer to the label printer and printing a label. Big problem switching back to default printer after printing a label.


If we comment out the line that actually prints labels, the printers switch back and forth with no problem.

If we actually print a label (DoCmd.RunCommand acCmdPrint), the code to select the default printer doesn't work. No errors. Printing the label "freezes" the label printer as the default printer.

Public Function PrintLabels()
Dim prtDefaultPrinter As Printer
strReport = Application.CurrentObjectName


Select Case strReport


Case Is = "tblLabels"
   
   Set prtDefaultPrinter = Application.Printer  ' set default printer
   Set Application.Printer = Application.Printers("Brother QL-570 LE") 'swith to label printer
   DoCmd.OpenReport "rptLabels", acViewPreview
   DoCmd.RunCommand acCmdPrint 'prints to label printer
   Set Application.Printer = prtDefaultPrinter ' DOES NOT RESET TO default printer
   DoCmd.Close acReport, "rptLabels", acSaveNo
     
End Select


End Function

[Missinglinq]

Not really sure, but first thing I'd try is dropping the acSaveNo parameter.

Linq ;0)>

[chromachem]

Removing acSaveNo made no difference. Thanks for looking.

[orange]

Try dimming the
Dim prtDefaultPrinter As String

In general I would have a
debug.print strReport during testing to ensure it contained what you expect.

I recommend Option Explicit to require dimming all variables.

[chromachem]

I tried dimming the default printer as a string. It did not help.

If you comment out the line DoCmd.RunCommand acCmdPrint then Set Application.Printer = strDefaultPrinter the code switches the printer back to the default as needed.
As soon as you remove the comment form the line of code and run DoCmd.RunCommand acCmdPrint, the printer does not switch back to the default printer.

   strDefaultPrinter = Application.Printer.DeviceName
   Set strDefaultPrinter = Application.Printer
   Set Application.Printer = Application.Printers("Brother QL-570 LE")
   DoCmd.OpenReport "rptLabels", acViewPreview
   DoCmd.RunCommand acCmdPrint
   DoCmd.Close acReport, "rptLabels"
   Set Application.Printer = strDefaultPrinter

If you google reset default printer Access VBA on line you can find lots of people that have run into this same problem. This is the only solution found anywhere:

Microsoft has a printer dialog that does not change the default windows printer, but allows the users to select printer and printing options, see http://support.microsoft.com/kb/322710/EN-US/#7 for download and sample code. Unfortunately this fix doesn't seem to install in Win 10 64 bit.

So... It seems to be a common problem with no solution for my OS. Quite the challenge. If anyone can come up with a fix, it would be greatly appreciated.

[orange]

Have you looked at these links?

https://msdn.microsoft.com/en-us/lib.../ff845464.aspx
http://answers.microsoft.com/en-us/o...e2cfed2?auth=1

[chromachem]

I ended up using the SetDefaultPrinter API. I went back and looked on line and essentially used the code below.

Option Compare Database
Option Explicit

Public Declare Function SetDefaultPrinter Lib "winspool.drv" _
Alias "SetDefaultPrinterA" (ByVal pszPrinter As String) As Long

Public myPrinter As String

Private Sub Form_Load()
myPrinter = Application.Printer.DeviceName 'grab default printer so we can reset it on exit
End Sub

Private Sub Form_Unload(Cancel As Integer)
SetDefaultPrinter myPrinter 'reset to default
End Sub

THIS WORKS!!!!!!!!!!!!!!!!!!!! Thanks to all for looking.

Last stupid question (of the day). How do I mark a thread solved on this forum?