Como imprimir 3 veces con diferente pie de pagina

[ecfisa]

Empezado por rufo

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.

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.

[Casimiro Noteví]

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.

[rufo]

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