QuickReport, 4 copias de un listado con distintos pies

[[ElKurgan]]

Si la etiqueta que quieres cambiar se llama, por ejemplo, qrLabel1, debes hacer lo siguiente:

1.- Añadir la unit "pptypes" en la clausula uses del Informe.
2.- Poner la propiedad PrinterSetup.Collation := True;
3.- Poner la propiedad PrinterSetup.Copies := 4;
4.- Poner la propiedad PassSetting := psTwoPass;
5.- Crear una variable privada (por ejemplo, FCopia) de tipo Integer; en el
evento BeforePrinter la inicializamos a cero.
6.- En el evento OnSTartPage escribimos esta sentencia:
with MiReport do // o como se llame el informe...
If SecondPass and (AbsolutePageNo = 1) then Inc(FCopia);
7.- Finalmente, en el evento OnPrint escribimos lo siguiente:

  case FCopia of
    1: qrLabel1.Caption := 'Ejemplar para el INTERESADO';
    1: qrLabel1.Caption := 'Ejemplar para el ESTABLECIMIENTO DE CREDITO A REMITIR ';
    1: qrLabel1.Caption := 'Ejemplar para el ESTABLECIMIENTO DE CREDITO';
    1: qrLabel1.Caption :='Ejemplar a CONSERVAR POR LA OFICINA GESTORA';
  end;

Espero que te sirva.
Un saludo;