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 09-05-2016
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Exportar a PDF con QR 3.6.2

Me vais a mandar a la porra como muy cerca. Ya no sé que pasa, pero cada paso adelante que doy el sistema me responde con dos para atrás. Tengo este código:
Código:
#include <qrpdffilt.hpp>
#include <QRExport.hpp>

bool ExportaListado(TQuickRep *Informe, AnsiString cInforme, bool Guardar)
{
     try
     {
          if (UpperCase(ExtractFileExt(cInforme)) == ".PDF")
          {
               TQRPDFDocumentFilter *filtro = new TQRPDFDocumentFilter(cInforme);
               filtro->AddFontMap("Arial:Helvetica");
               filtro->StartConcat();
               Informe->ExportToFilter(filtro);
               filtro->EndConcat();
               delete filtro;
          }
          else if (UpperCase(ExtractFileExt(cInforme)) == ".RTF")
          {
               TQRRTFExportFilter *filtro = new TQRRTFExportFilter(cInforme);
               Informe->ExportToFilter(filtro);
               delete filtro;
          }
          else if (UpperCase(ExtractFileExt(cInforme)) == ".TXT")
          {
               TQRAsciiExportFilter *filtro = new TQRAsciiExportFilter(cInforme);
               Informe->ExportToFilter(filtro);
               delete filtro;
          }
          else if (UpperCase(ExtractFileExt(cInforme)) == ".XLS")
          {
               TQRXLSFilter *filtro = new TQRXLSFilter(cInforme);
               Informe->ExportToFilter(filtro);
               delete filtro;
          }
     }
     catch(...)
     {
          DeleteFile(cInforme);
          Mensaje(1, "Ha tenido lugar un error en la exportación del listado.", "Continuar");
          return false;
     }
     return true;
}
Esta función la uso en varios sitios de lso informes de forma que no me hace falta definir la exportación en cada punto del proyecto; lo hago una vez y luego llamo a esta función. Llevo años usándolo sin ningún problema... ¡Hasta hoy! Ahora, de repente, al compilar el proyecto completo (Ctrl+F9 o Build Project - Alt P + B) me está dando errores en el módulo donde está declarada:
Cita:
Unresolved external 'Qrpdffilt::TQRPDFDocumentFilter::' referenced from C:\Proyecto\Funciones.obj
Curiosamente si compilo sólo (Alt+F9) el módulo en que se encuentra declarada la función ¡no me da ningún error!

¡¡¡SOCORRO!!!
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
Exportar en DLL dtomeysoto Varios 0 19-02-2010 17:21:35
Exportar con sql odrack SQL 11 15-01-2009 07:18:54
Exportar en una DLL en C++ Ege C++ Builder 1 05-04-2008 11:22:34
Exportar *.gdb lachooo Firebird e Interbase 1 19-10-2006 12:38:58
Exportar a DBF o XLS mRoman Tablas planas 1 16-06-2005 18:10:25


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


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