Como listar as impressoras disponíveis?

DAVID CANDIDO DA SILVA

DAVID CANDIDO DA SILVA Publicado 17/11/2017 


É necessário estar declarado Printers na seção uses,

em versões unicode declare Vcl.Printers;


procedure TForm1.Button1Click(Sender: TObject);
begin
  ListBox1.Items.Assign(Printer.Printers);
    // Se preferir pode listar as impressoras em um combobox
  //ComboBox1.Items.Assign(Printer.Printers);
end;



 

Voltar ao topo