Trying to Change Default printer

[sims.anderson2010]

I am trying to change the default printer for a list of reports. I want to change the printer then print the report and loop through a list of reports. It all works except for one minor issue. When I am done looping through the reports, and set the printer back to the original, it doesn't work. Throws no errors, but when I exit access and check under devices and settings, no printer is set as default. Next time I enter access and try to run the report, it says that the default printer is not set up correctly.

Here is my code:

Private Sub CmdPrintUnitReports_Click()
On Error GoTo Err_CmdPrintUnitReports_Click

    Dim dbs As Database
    Dim rst As Recordset
    Dim NewPrt As String
    Dim prt As Printer
    Dim str As String, str2 As String
    
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset("select * from tbl_unit_printers")
   
    Set prt = Application.Printer

    While Not rst.EOF
        
        NewPrt = ""
        NewPrt = rst!Printer
        
        Set prt = Application.Printer
        Set Application.Printer = GetPrinter(NewPrt)
          
        str = "CURRENTUNIT like '*" & rst!Unit & "*'"

        'Print report to unit printer
        DoCmd.OpenReport "Rpt_WARDClassSchedule_ByUnit", acNormal, , , , str

        Set Application.Printer = prt
        rst.MoveNext
    Wend

    Set Application.Printer = prt

    
    'MsgBox "Reports printed to the units.", vbOKOnly

Exit_CmdPrintUnitReports_Click:
    SetDefaultPrinter DefaultPrtStr
    Exit Sub

Err_CmdPrintUnitReports_Click:
    MsgBox Err.Description
    Resume Exit_CmdPrintUnitReports_Click
    
End Sub

Any help would be appreciated

[June7]

Don't know if will help but don't see reason for the prt lines inside the loop. Can't see real problem with code. Have you step debugged?

[sims.anderson2010]

Sorry. I have now fixed the error. At the end of the Code, I had left this line.

    'MsgBox "Reports printed to the units.", vbOKOnly

Exit_CmdPrintUnitReports_Click:
    SetDefaultPrinter DefaultPrtStr
    Exit Sub

Err_CmdPrintUnitReports_Click:
    MsgBox Err.Description
    Resume Exit_CmdPrintUnitReports_Click
    
End Sub

Apparently (I don't know the reason) Albert D.Kallal's Printer Setup Module does not work in Windows 7. It works for Access 2010 but not under Windows 7. When we changed to Windows 7 from Windows XP, this broke the DB. Another thing that Had to be changed was a reference to Compataui.dll which Windows XP uses for compatability (Database was created in Access 2003, Used later in 2010).

Thanks for the suggestion. The reason for the extra set printers in the loops (at the beginning and the end) was just brainstorming during the troubleshoot process. Totally not needed. May actually cause slight lag as the database grows.