Ver Mensaje Individual
  #3  
Antiguo 18-09-2012
Walterio Walterio is offline
Miembro
 
Registrado: nov 2006
Posts: 46
Reputación: 0
Walterio Va por buen camino
Muchas gracias MartinS por la respuesta.
Tu ejemplo me solucionó el problema (no sé porqué no se me pasó por la cabeza usar el BeforePrint, era simple).
Efectivamente, como suponés, son cuatro copias de un mismo reporte que me entran dos por página.
El único cambio que tuve que hacer es poner el Inc(Copia) después del Case del BeforePrint :

Código Delphi [-]

 case nCopias of
    1: lblTipoCopia.Caption := 'Original';
    2: lblTipoCopia.Caption := 'Duplicado';
    3: lblTipoCopia.Caption := 'Triplicado';
    4: lblTipoCopia.Caption := 'Cuadruplicado';
  end;

  Inc(nCopias);

ya que en el AfterPrint (quién sabe el porqué) no se ejecuta.

Al imprimir sale todo bien, pero me pareció ver que en el Preview no funciona como deberia ya que me mostró las 4 etiquetas iguales.
Pruebo nuevamente y comento, pero al menos las impresiones resultaron exitosas.

Nuevamente, muchísimas gracias.

Saludos.
Responder Con Cita