Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Impresión
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 02-04-2009
[David] David is offline
Miembro Premium
 
Registrado: may 2003
Ubicación: Málaga
Posts: 417
Poder: 22
David Va por buen camino
Gracias, si me ha salido, además he añadido en el evento before print del detailData, el siguiente código:

Código Delphi [-]
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
  if (Engine.FreeSpace <=  GroupFooter1.Height +15) then
    Engine.NewPage;
end;

donde pongo 15, puede ser 10, 25, etc... hay que ir probando para ir ajustando.
Responder Con Cita
  #2  
Antiguo 14-03-2016
Avatar de santiago14
santiago14 santiago14 is offline
Miembro
 
Registrado: sep 2003
Ubicación: Cerrillos, Salta, Argentina
Posts: 583
Poder: 21
santiago14 Va por buen camino
Smile

Cita:
Empezado por David Ver Mensaje
Gracias, si me ha salido, además he añadido en el evento before print del detailData, el siguiente código:

Código Delphi [-]
procedure DetailData1OnBeforePrint(Sender: TfrxComponent);
begin
  if (Engine.FreeSpace <=  GroupFooter1.Height +15) then
    Engine.NewPage;
end;

donde pongo 15, puede ser 10, 25, etc... hay que ir probando para ir ajustando.
Gracias. Me sirvió de mucho este Post.
Lo comento de paso.
Al parecer, hay un problema en FastReport cuando está poniendo las anclas (Anchors). A veces, la banda de datos empieza como "al ras" del final de la hoja, el ancla indica la hoja 19 pero visualmente el texto comienza en 20 (Esto es un ejemplo de numeración)
En el índice, y en lo usuarios, genera un gran revuelo.
Encontré la solución trabajando con FreeSpace y jugando un poco con los pixeles.
Mando el pedacito de código.
Código Delphi [-]
//Todo esto en el Script de FastReport

{Controlamos que la altura del espacio en blanco (FreeSpace) que va quedando sea menor a cierto
 valor, en pixeles. Con esto, pasamos a nueva página o no}
procedure ControlFinPagina(AlturaMinima:integer);
var
  px:integer;                               
begin
  px:=AlturaMinima;                                        
  if Engine.FreeSpace <= px then
  begin              
    Engine.NewPage;
  end;                  
end;

procedure mdAvisosSeccionAdmOnBeforePrint(Sender: TfrxComponent);
begin
{Controlamos que la altura del final de la página sea menor, o no, que cierto número.
 En base a eso, pasamos o no, a una página nueva}
  ControlFinPagina(30);
end

//El ancla...
procedure rchAvisoAdmOnAfterData(Sender: TfrxComponent);
begin
  Engine.AddAnchor();
end;

Espero que sea de ayuda a los que le pasa lo mismo.
__________________
Uno es responsable de lo que hace y de lo que omite hacer.

Última edición por santiago14 fecha: 14-03-2016 a las 18:04:47.
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Validar firma de factura electrónica (formato Facturae) maro Varios 79 22-09-2015 09:45:17
Imprimir Factura Con Fastreport macro32 Conexión con bases de datos 2 15-04-2008 00:39:03
Factura - Detalles : Problema con QuickRep 4.06 TrUnkS Impresión 2 09-02-2007 00:20:52
Problema Con campo Numero factura josejose Varios 1 01-02-2007 15:44:46
Fallo Nº Factura y Linea Factura CarmaZone Tablas planas 5 26-05-2005 11:17:19


La franja horaria es GMT +2. Ahora son las 10:23:36.


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
Copyright 1996-2007 Club Delphi