Ver Mensaje Individual
  #2  
Antiguo 19-11-2006
Avatar de ElKurgan
[ElKurgan] ElKurgan is offline
Miembro Premium
 
Registrado: nov 2005
Posts: 1.235
Reputación: 20
ElKurgan Va camino a la fama
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:
Código:
  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;
Responder Con Cita