rodmc
2004-07-12, 07:01 PM
I'm using the following code to generate a list of the available printers on a system. Do you know how I can likewise generate a list of available media sizes for a given printer?
(setq AOBJ (vlax-get-Acad-object) ADOC (vla-get-ActiveDocument AOBJ) ALOB (vla-Get-ActiveLayout ADOC))
(vla-RefreshPlotDeviceInfo ALOB) (setq PNAMS (vla-GetPlotDeviceNames ALOB))
(vl-princ-to-string (setq PLST (vlax-safearray->list (vlax-variant-value PNAMS))))
(if PLST (setq PLST (acad_strlsort PLST)))
(setq AOBJ (vlax-get-Acad-object) ADOC (vla-get-ActiveDocument AOBJ) ALOB (vla-Get-ActiveLayout ADOC))
(vla-RefreshPlotDeviceInfo ALOB) (setq PNAMS (vla-GetPlotDeviceNames ALOB))
(vl-princ-to-string (setq PLST (vlax-safearray->list (vlax-variant-value PNAMS))))
(if PLST (setq PLST (acad_strlsort PLST)))