Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Para Imprimir copias con pie de pagina diferentes (https://www.clubdelphi.com/foros/showthread.php?t=40014)

jandres 05-02-2007 15:31:25

Para Imprimir copias con pie de pagina diferentes
 
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 05-02-2007 16:02:21

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 05-02-2007 16:04:05

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í:
Código Delphi [-]
// 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


La franja horaria es GMT +2. Ahora son las 00:36:07.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi