Como imprimir 3 veces con diferente pie de pagina

[rufo]

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.