VB6 how to save & restore default printer settings?

[Tiffanyc]

Hi. I have a VB6 application that changes the default printer. Before the default printer is changed, I'd like to save the original default printer settings. Then after the application is done running I want to restore the original default printer settings back. How can I do this?

Thank you!

 

[Glasgow]

If you use something along the following lines, you should end up 'storing' details of the default printer in Prt

  Dim Prt as Printer, DefaultPrt as Printer

  For Each Prt In Printers
    If Prt.DeviceName = Printer.DeviceName And _
       Prt.Port = Printer.Port And _
       Prt.DriverName = Printer.DriverName Then
      Set DefaultPrt = Prt
      Exit For
    End If
  Next

Then, to restore the default:

Set Printer=Prt