VBA to determine the name of a user's default printer

If you need to know the name of a user's default printer, use this VBA code:

Application.printer.devicename

This will return something like:

"\\SERVER\RICOH Aficio 3035 PCL 6"

OR

"\\SERVER\HP LaserJet 4250 PCL 5e"