Use the attached VBS script to create an easy-to-use user icon/shortcut to quickly reset the default printer. This is handy for users of Quickbooks where the default gets randomly changed to the XPS writer.

For network-based printers:

Option Explicit
Dim objNetwork, strUNCPrinter
strUNCPrinter = "\\SERVER\Printer-Share"
Set objNetwork = CreateObject("WScript.Network") 
objNetwork.AddWindowsPrinterConnection strUNCPrinter
' Here is where we set the default printer to strUNCPrinter
objNetwork.SetDefaultPrinter strUNCPrinter
' WScript.Echo "Check the Printers folder for : " & strUNCPrinter
WScript.Quit

For local printers: 

Set WSHNetwork = CreateObject("WScript.Network")
WSHNetwork.SetDefaultPrinter "My Exact Printer Name"

Automate this via an icon via cscript. Shortcut will look like "cscript c:\users\me\documents\default_printer_local.vbs"

Attached files:

• Fix Default Printer Local.vbs
• Fix Default Printer Network.vbs