(setq def_printer_name (vla-get-defaultoutputdevice (vla-get-output (vla-Get-Preferences (vlax-get-acad-object)))))