Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)
-   -   Como agregar objeto memo por codigo en fastreport (https://www.clubdelphi.com/foros/showthread.php?t=94242)

marco3k 16-10-2019 22:07:26

Como agregar objeto memo por codigo en fastreport
 
Buen dia Foro, tengo una consulta repecto a la creación de objetos por codigo en FastReport.

El asunto es el siguiente hay una aplicacion de boletas de pago donde se hace consultas y muestra los datos en un grid y mediante un checkbox enlazado a una columna se selecciona las boletas de pago a imprimir (figura 001). Luego hay un reporte de boletas de pago que sale 2 boletas en 1 hoja vertical, hasta ahi todo bien, el problema es que me pidieron que le ponga un sello en cada boleta pues lo que hice, es agregar una banda overlay y puse ahi los dos sellos en un objeto pictureview del FastReport y funcionó sale impreso cada boleta con su sello en una hoja vertical; el problema viene cuando se imprime boletas en cantidad impar por ejemplo 1, 3, 5, etc boletas.

Cuando se selecciona 1 boleta de pago se muestra en el reporte con el sello y en la otra mitad de la hoja sale el sello y eso no se ve bien, entonces lo que se me ocurrio es agregar por código en la ultima pagina un objeto que oculte el segundo sello para que no se imprima en la segunda parte de la hoja (figura 002). EL codigo que use lo aplique en el reporte y quedo asi (figura 003):
Código Delphi [-]
var Memo : TfrxMemoView;           
begin  
       Memo := TfrxMemoView.Create(page1);               
       Memo.SetBounds(330, 0, 200, 150);
       Memo.Color := clgreen;
       Memo.top := 810;
end.
Al aplicar ese código como se ve en la figura 002 (le puse color verde al objeto memo para ver donde es ubica, ya despues lo cambiare a color blanco) se queda en la pagina 1, pense que si le pongo un valor alto a la propiedad top se iria a la segunda página, pero no sucede eso, se pierde en la primera pagina y no se que hacer para que pase a la segunda pagina. En conclusion quiero que el objeto memo apareza al final del reporte cuando haya el numero total impar de boletas para que tape el segundo sello. Gracias de antemano por cualquier ayuda que me puedan brindar.

figura 001:
https://1drv.ms/u/s!Aux601Sf-JcbggI3...9g8Is?e=c7QMEB

figura 002:
https://1drv.ms/u/s!Aux601Sf-JcbggQZ...Nz0kI?e=RDb19o

figura 003:
https://1drv.ms/u/s!Aux601Sf-JcbggMx...LTKZK?e=cHNdQ7

Nota: no puedo agregar imagenes ni vinculos, asi que junten los espacios en h t t p para poder ver las imagenes de referencia.


La franja horaria es GMT +2. Ahora son las 01:11:24.

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