Original, Duplicado triplicado

[Minio]

Gracias por responder, al final logre sacarlo. Lo hice en el BeforePrint:

Código Delphi [-]
  case QuickRep1.PageNumber of
    0: QRLabel1.Caption := 'Original factura';
    1: QRLabel1.Caption := 'Copia de cortesia';
    2: QRLabel1.Caption := 'Copia contabilidad';
    3: QRLabel1.Caption := '';
  end;

He añadido un QRCompositeReport al que le añado informes según una variable donde guardo la cantidad de copias que quiero. En su evento OnAddReports pongo esto:

Código Delphi [-]
var
  NCopias: Integer;
begin
  NCopias := 0;
  while NCopias < Form1.CopiasFactura do
    begin
      QRCompositeReport1.Reports.Add(Form2.QuickRep1);
      NCopias := NCopias + 1;
    end;

Y para terminar en el botón imprimir esto:

Código Delphi [-]
Application.CreateForm(TForm2, Form2);
 QRCompositeReport1.Reports.Clear;
QRCompositeReport1.Prepare;
QRCompositeReport1.ExportToFilter(TQRPDFDocumentFilter.Create('Factura.pdf'));
Form2.Destroy;
ShellExecute(FmFacCli.Handle, nil, PChar('Factura.pdf'),'', '', SW_SHOWNORMAL);

Con esto ultimo genero la factura la guardo como PDF con la ayuda del componente QRPDFFilter y lo abro con Acrobat Reader y me sale directamente, y tengo guardada una copia en disco.

Bueno gracias a todos.