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.