var i : integer; begin for i := 0 to Printer.Printers.Count - 1 do begin Printer.PrinterIndex := i; QuickRep1.PrinterSettings.PrinterIndex := Printer.PrinterIndex; end; end;