Ver Mensaje Individual
  #4  
Antiguo 20-11-2006
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
 
Registrado: may 2003
Posts: 7.424
Reputación: 29
Lepe Va por buen camino
En el evento BeforePrint de ese qrLabel, puedes modificarlo a voluntad y cambiar el texto.

Código Delphi [-]
procedure .... Label1BeforePrint(....);

begin
 case label1.tag of:
   0: Text := 'Ejemplar para el INTERESADO';
   1: Text := 'Ejemplar para el ESTABLECIMIENTO DE CREDITO A REMITIR ';
   2: Text := 'Ejemplar para el ESTABLECIMIENTO DE CREDITO';
   3: Text := 'Ejemplar a CONSERVAR POR LA OFICINA GESTORA';
 end;
 label1.tag := label1.tag + 1;

Ignoro como funciona cuando se le da a "imprimir varias copias" igual hace una sola imagen de lo que se va a imprimir y después envía 4 copias de esa imagen. Si funciona así, no te sirve "mi idea", quizás tengas que usar otra cosa, por ejemplo:

Código Delphi [-]
qrListado.PreviewModal;
  for i:= 1 to 4  do
    qrListado.Print; // se envía 4 veces a imprimir.

Edito: Pues no leí el primer mensaje de ElKurgan, pero la idea es la misma en QuickReports.

Saludos y suerte
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 20-11-2006 a las 14:43:22.
Responder Con Cita