Ver Mensaje Individual
  #1  
Antiguo 24-09-2003
Avatar de guillotmarc
guillotmarc guillotmarc is offline
Miembro
 
Registrado: may 2003
Ubicación: Huelva
Posts: 2.638
Reputación: 24
guillotmarc Va por buen camino
FastReport, margenes en run-time

Hola.

¿ Alguien me puede ayudar a modificar los margenes de un informe en run-time ?. (Utilizo FastReport 2.5).

He probado con este código :

var MargenPorDefecto: integer;
...
frInforme.LoadFromFile(Archivo);
MargenPorDefecto := frInforme.Pages[0].pgMargins.Top;
frInforme.Pages[0].pgMargins.Top := NuevoMargen;
frInforme.Pages[0].pgMargins.Bottom := frInforme.Pages[0].pgMargins.Bottom + MargenPorDefecto - NuevoMargen;
frInforme.ShowReport;

El espacio que le añado o le quito al Margen superior, se lo asigno al Margen Inferior (por si acaso). Pero aún así la primera hoja sale bien, pero en la siguiente desplaza el contenido a la derecha (¿ aumenta el margen izquierdo ?), hasta que llega una hoja en que no aparece nada.

Gracias por vuestra ayuda.
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no).

Última edición por guillotmarc fecha: 24-09-2003 a las 15:50:24.
Responder Con Cita