[__cadetill]

No lo he probado, pero supongo que algo asi deveria servirte

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