Buenas tardes y una disculpa de antemano por repetir mi pregunta ya que en el foro de impresion he teneido 90 visitas y solo uno me ha respondido, espero que me ayuden, les comento que quiero imprimir una factura 3 veces pero con diferente leyenda en el pie de pagina que salga mas o menos asi:
*ORIGINAL
*CLIENTE
*CONTABILIDAD
Les anexo lo que llevo hasta ahorita sin resultados, he estado poniendo este codigo en el evento beforeprint.
Código Delphi
[-]
procedure TReporte.QRBand1BeforePrint(Sender: TQRCustomBand;
var PrintBand: Boolean);
begin
case QuickRep1.PageNumber of
0: QRLabel33.Caption := 'ORIGINAL';
1: QRLabel33.Caption := 'CLIENTE';
2: QRLabel33.Caption := 'CONTABILIDAD';
end;
end;
Pero al momento de mandar imprimir solo me imprime con la leyenda ORIGINAL las 3 veces que mando imprimir y las otras leyendas no imprime, espero me ayudes haber que estoy haciendo mal, de antemano gracias, para mandar imprimir 3 veces en la propiedad PrinterSettings y en su opcion copies le puse el valor 3 para que con un solo clic me mande 3 impresiones, bueno de antemano gracias.