Llenar un ListBox con las impresoras disponibles
 

Cómo llenar un ListBox con las impresoras disponibles

Código Delphi [-]
with ListBox1 do
begin
  for i := 0 to QRPrinter.Printers.Count do
    Items.Add(QRPrinter.Printers.Strings[i]);
end;

Lo cierto es que lo normal seria hacerlo con una sola linea, y nos ahorramos el bucle:

Saludos

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;