Accessing available media sizes

[rodmc]

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)))

[rodmc]

Never mind - I've got it! Thanks.

(vla-RefreshPlotDeviceInfo ALOB)
(foreach MNE
(vlax-safearray->list
(vlax-variant-value
(vla-GetCanonicalMediaNames
(setq MLO (vla-item (vla-get-layouts ADOC) "Model")))))
(setq MNL (cons (vla-GetLocaleMediaName MLO MNE) MNL))) (reverse MNL)