[dec]

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;