Resetting Default Printer in Code

[Falconsbane]

Its a great solution if you want to enumerate the printers and display it the the user. If you simply just want to change default printers than all you need is this:

Option Explicit
Private Declare Function SetDefaultPrinter Lib "winspool.drv" _
   Alias "SetDefaultPrinterA" _
  (ByVal pszPrinter As String) As Long
 
Private Sub Command1_Click()
   SetDefaultPrinter "PrinterNameHere"
End Sub