A mi esto me sale mejor así:
Agrego en las Uses la unidad QPrinters y pongo este código
procedure TForm1.FormCreate(Sender: TObject);
var i : integer;
begin
with ListBox1 do
begin
for i := 0 to Printer.Printers.Count - 1 do
Items.Add(Printer.Printers[i]);
end;
end;
|