Para Imprimir copias con pie de pagina diferentes

[jandres]

Saludos a todos
El inconveniente que tengo es el siguiente tengo una aplicación que genera una orden de compra necesito que se impriman 3 copias seguidas pero en el pie de pagina cada copia debe salir con un nombre de departamento diferente los departamentos son 3
Administrativo
Contabilidad
Auditoria

Estoy utilizando Delphi 7 , Acess 2003 y Report Buildel

Gracias por su ayuda

[marcoszorrilla]

Aunque no trabajo con ReportBuilder, te voy a decir por ejemplo como lo haría con QuickReport, seguramente te funcionará igualmente.

En vez de mandarle 3 copias, le mando imprimir el informe 3 veces, cada vez que le mando imprimir le paso un pie de página distinto.

Esto el usuario ni se entera porque lo único que verá es salir 3 copias por la impresora.

Un Saludo.

[Lepe]

No conozco Report Builder, pero la idea es poner un label y en un evento "After Print" cambiar el texto, de forma que la siguiente vez que se imprima cambia el texto.

La forma de controlar.... más o menos así:

// deberás activar la directiva "assignable constants type" en el compilador.
const veces :integer= 0;
var a:Array [0..2] of string = ('Administrativo','Contabilidad','Auditoria');
begin

label1.caption := a[veces mod 2];
veces := veces +1;
end;



Saludos