Plotter media sizes
We have about 15 plotters at work. I can get a list of all of the printers but how do I get a list of media sizes for each of these printers?
An example of the output I'm seeking:
(list "\"Xerox Phaser1\"" "Letter (8.5 x 11\")" "Tabloid (11 x 17\")")
How I get the list of plotters:
(defun getprinters ( / temp printers )
; returns a list of all of the plotters
(setq temp
(vlax-safearray->list
(vlax-variant-value
(vla-getplotdevicenames
(vla-item
(vla-get-layouts
(vla-get-activedocument
(vlax-get-acad-object)
)
)
"Model"
)
)
)
)
)
(setq printers (list ))
(foreach printer temp
(if (/= printer "None")
(setq printers
(append printers
(list printer)
)
)
)
)
)