listing printer

[Anonymous]

Good morning, I am trying to list the printers that are installed on my PC and tabem the plot style table (pen assignments), each in a popup_list, I have done the dialog box, just missing the lisp someone could give me an idea of how do.

thank you.

[hmsilva]

Hi Marcelo,

perhaps something like this

(setq files (vla-get-Files (vla-get-Preferences (vlax-get-acad-object))))
(setq Plotter_lst (vl-directory-files (vla-get-PrinterConfigPath files) "*.pc3" 1))
(setq ctbs_lst (vl-directory-files (vla-get-PrinterStyleSheetPath files) "*.ctb" 1))

Henrique

[hmsilva · Accepted solution]

And if system printers needed

(setq printers_lst
        (vl-remove-if
          '(lambda (x)
             (wcmatch x "None")
           )
          (vlax-safearray->list
            (vlax-variant-value
              (vla-getplotdevicenames
                (vla-item (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))
                          "Model"
                )
              )
            )
          )
        )
 )

I hope this helps

Henrique

[Anonymous]

Hi, that's right, thank you

[hmsilva]

You're welcome, Marcelo
Glad I could help

Henrique