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