Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Limitar cantidad de registros por pagina (https://www.clubdelphi.com/foros/showthread.php?t=70569)

elarys 28-10-2010 20:35:58

Limitar cantidad de registros por pagina
 
Estoy haciendo una impresion de etiquetas, tengo un formulario donde el usuario elige en un combo de 1, 2, 3, etc... estos serian la cantidad de registros que tengo que imprimir por pagina, osea 1 por pagina, 2 por pagina, 3 por pagina, etc

las etiquetas tienen un formato y el usuario elige de 0000 a 1000
tengo que imprimir algo mas o menos asi
----------
pagina 1

0001

0002

0003
----------
pagina 2

0004

0005

0006
----------
etc

las etiquetas tienen su formato y ya las imprimo... ahora como le digo a fastreports, que me imprima 1, 2, 3, etc por pagina en vez de imprimir en continuo

por ejemplo de un registro por pagina
----------
pagina 1

0001
----------
pagina 2

0002
----------

etc
----------

la impresion la realizo pasandole a un dataset los numeros de las etiquetas y las imprimo en fastreport con un masterdata

se me ocurre que tengo que hacer algo en el evento OnBeforePrint del masterdata

Combat-F2D 29-10-2010 07:38:03

puedes declarar una var integer dentro de tu report a modo de contador

envía desde de tu codigo delphi el valor de etiquetas por pagina

en el evento OnBeforePrint de tu MasterData, comprueba

Código Delphi [-]
onBeforePrint
begin
    if tContador > tvarconNumerodeEtiquetasporPagina then
    begin
          NewPage;
          tContador := 1;
    end
    else
    begin
          tContador := tContador + 1;
    end;
end;


sería algo así; comprueba que los reseteos de los contadores están bien


La franja horaria es GMT +2. Ahora son las 08:43:17.

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