Como imprimir 3 veces con diferente pie de pagina
 

Buenas tarde quisiera saber como imprimir 3 veces el mismo reporte con Quickreport pero con diferente leyenda al final del reporte, es decir que la primera hoja diga

*CLIENTE
La segunda

*ARCHIVO

Y la tercera

*CONTABILIDAD

Estoy usando Quickreport en delphi 2007 espero me ayuden y gracias de antemano.

para ello puedes jugar con los eventos beforeprint y afterprint de las bandas (en este caso el footer)
con ello puedes variar o modificar el contenido de tu leyenda según el valor de la pagina a imprimir

mas o menos esa puede ser una solucion

Gracias por responder y 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.

Como imprimir 3 veces con distinta leyenda
 

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.

Hola rufo.

Combiné tus dos últimos hilos en base al punto 6 de la guía de estilo.
Saludos y gracias por tu colaboración :)

Ok gracias y estare esperando respuestas.

Hola rufo.

Lo que sucede es que si indicas tres copias del mismo documento mediante la propiedad Copies y el documento tiene sólo una hoja, el valor de la propiedad PageNumber siempre va a ser igual a uno.

Creo que tendrías que buscarle la vuelta por otro lado... algo como:

Código Delphi [-]
...
var
  i: Byte;
begin
  // suponiendo que QuickRep1 este en Form2 ...
  Form2:= TForm2.Create(Self);
  with Form2 do  
  begin
    for i:= 1 to 3 do
    begin
      case i of
      1: QRLabel33.Caption := 'ORIGINAL';
      2: QRLabel33.Caption := 'CLIENTE';
      3: QRLabel33.Caption := 'CONTABILIDAD';
      end;
      QuickRep1.Print;
    end;
  ...

Saludos.

En otros generadores de informes que he usado (no sé si este lo tiene) existen 2 variables distintas, una para las páginas del informe y otra variable de páginas global.
Por lo que si envías 3 copias del informe, la variable contador global va acumulando todas las páginas, independientemente de la otra variable "normal" que cuenta la página del informe.
Cuestión de echar un vistazo, seguramente lo tiene también.

Gracias ecfisa el ejemplo que me diste me funciono muy bien.