Hola Walterio: No tengo idea cuales son los Qreport que estas usando pero suponiendo que es uno solo que se repite cuatro veces podrias hacer asi:
Defini una variable (yo lo puse copia).
Aqui le asignas el valor a la variable
Código Delphi
[-]procedure TForm2.FormCreate(Sender: TObject);
begin
Copia := 1;
end;
Aqui se agregan el mismo Qreport (QuickRep1) una y otra vez... Ojo no se si usas solo uno repetido o varios
Código Delphi
[-]procedure TForm2.QRCompositeReport1AddReports(Sender: TObject);
begin
QRCompositeReport1.Reports.Add(QuickRep1);
QRCompositeReport1.Reports.Add(QuickRep1);
QRCompositeReport1.Reports.Add(QuickRep1);
QRCompositeReport1.Reports.Add(QuickRep1);
end;
Antes de imprimir (Evento del Qreport), en este caso como es por QrComposite, antes de enviar al composite, miro el valor de copia y le asigno el texto correspondiente al Qrlabel
Código Delphi
[-]procedure TForm2.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
case Copia of
1: QRLabel1.Caption := 'Original';
2: QRLabel1.Caption := 'Copia';
3: QRLabel1.Caption := 'Duplicado';
4: QRLabel1.Caption := 'Triplicado';
end;
end;
Despues que lo envio (Siempre del Qreport) incremento el valor de la variable copia
Código Delphi
[-]procedure TForm2.QuickRep1AfterPrint(Sender: TObject);
begin
Inc(Copia);
end;
Saludos.-
PD: No se si es la mejor forma de hacerlo pero hice una pequeña prueba y mas o menos se adapta a lo que solicitas de acuerdo a mi imaginacion...
Espero que te sirva y si no con mas datos veremos que podemos hacer.-