(defun get-printers (/ return wshnetwork printlst i)
(vl-catch-all-apply
'(lambda ()
(setq WshNetwork (vlax-create-object "wscript.Network"))
(setq return (vlax-invoke WshNetwork 'EnumPrinterConnections))
(setq i 1)
(vlax-release-object WshNetwork)
(repeat (/ (vlax-get return 'length) 2)
(setq printlst (cons (vla-item return i) printlst))
(setq i (+ 2 i))
)
)
)
printlst
)