Qreport, composite y cambios en qrlabel

[MartinS]

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.-