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

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 17-08-2023
Avatar de pgranados
pgranados pgranados is offline
Miembro
 
Registrado: sep 2022
Ubicación: México
Posts: 264
Poder: 2
pgranados Va por buen camino
Hola. ¿puedes compartirnos que versión de FastReport tienes? Pasa que la versión gratuita por ejemplo no tiene la sección de código y eventos, por lo que la sugerencia de Casimiro no te funcionaria.

Ahora, también puedes hacerlo mediante código desde Delphi, por ejemplo: yo imprimo recibos de nomina (México) y existen dos tipos de nomina: ordinaria y extraordinaria, por lo que requiero ocultar las bandas del tipo de nomina que no estén. Entonces yo lo hago de esta forma:

Código Delphi [-]
var 
Report: TfrxReport;
RutaPDF, RutaModelo: string; // archivo FR3
pdfExport: TfrxPDFExport;
masterdata: TFrxMasterData;

Report := TfrxReport.Create(nil);
try
  Report.LoadFromFile(RutaModelo);
  // nomina ordinaria
  if (DModuloEmpresa.FDQueryNPR.IsEmpty) and (DModuloEmpresa.FDQueryNDR.IsEmpty) and (DModuloEmpresa.FDQueryNOPR.IsEmpty) then
  begin
    masterdata:= Report.FindObject('o') as TfrxMasterData;
    Masterdata.Visible:= false;
  end;
  // extraordinaria
  if (DModuloEmpresa.FDQueryNPR_E.IsEmpty) and (DModuloEmpresa.FDQueryNDR_E.IsEmpty) and (DModuloEmpresa.FDQueryNOPR_E.IsEmpty) then
  begin
    masterdata:= Report.FindObject('e') as TfrxMasterData;
    Masterdata.Visible:= false;
  end;

   // Preparo el Reporte
   Report.PrepareReport();


   // Crear un objeto de exportación a PDF
    PDFExport := TfrxPDFExport.Create(nil);
    try
      // Configurar las opciones de exportación
      Report.ShowProgress:= false;
      Report.PrintOptions.ShowDialog:= false;
      PDFExport.FileName := RutaPDF;
      PDFExport.ShowProgress:= False;
      PDFExport.ShowDialog := False;
      PDFExport.OverwritePrompt := False;
      // Exportar el informe a PDF
      Report.Export(PDFExport);
    finally
      FreeAndNil(PDFExport);
    end;
   // RutaPDF es la ruta del archivo PDF que voy a crear, este dato yo se lo paso porque en mi codigo,la generación
   // del PDF es una función.
    Result:= FileExists(RutaPDF);


finally
  FreeAndNil(Report);
end;

Saludos.

Última edición por Casimiro Notevi fecha: 18-08-2023 a las 09:46:41.
Responder Con Cita
 



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
Fastreport con 2 Pages: Imprimir una Page sólo en la primera copia afxe Impresión 4 29-01-2016 18:17:37
Encontrar primer registro que cumpla condición mike_1979 SQL 10 27-08-2008 22:03:06
sumatoria de una tabla mientras se cumpla una condicion douglas Conexión con bases de datos 28 29-10-2007 22:40:57
Salir del for select cuando se cumpla una condición Ivanzinho Firebird e Interbase 8 30-11-2005 21:47:48
FastReport+No imprimir una linea (Condicion) IVAND Impresión 1 10-04-2004 18:04:32


La franja horaria es GMT +2. Ahora son las 14:03:09.


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