Impressoras do Windows

Delphi

10/04/2003

Quero capturar as impressoras do Windows, para disponibilizá-las em um ComboBox, para que o usuário possa escolher.

Se alguém souber como, por favor responda.

Obrigado.


Manjuneiro

Manjuneiro

Curtidas 0

Respostas

Aroldo Zanela

Aroldo Zanela

10/04/2003

procedure TForm1.FormCreate(Sender: TObject);
var Impressora: TPrinter;
begin
  Impressora := TPrinter.Create;
  ListBox1.Items.Assign(Impressora.Printers);
  Impressora.Free;
end;



GOSTEI 0
POSTAR