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"