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.