Ver Mensaje Individual
  #2  
Antiguo 11-12-2007
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Reputación: 20
FGarcia Va por buen camino
Buscando encontre que debo de hacer esto:

Código Delphi [-]
//Declarar una variable
var 
   Informe: TMemoryStream;
 
//Modificar esta seccion del codigo
if not ADODiario.IsEmpty then
      begin
        Informe := TmemoryStream.Create ;  //Nueva linea
        with frmMain.RvProject1 do
        begin
          SetParam('Titulo', strTitulo);
          SelectReport('ReporteDiario', false);
          SaveToStream(Informe);
          Execute ;
          frmMain.RvRenderPDF1.PrintRender(Informe,'reportehoy.pdf'); //Nueva linea
        end;
      end;

al ejecutar aparece un error

---------------------------
Error
---------------------------
Unable to gain control of RAVE Data Communication System.
---------------------------
Cancel Retry
---------------------------

oprimo el boton retry El reporte impreso se genera adecuadamente pero el archivo pdf no:

---------------------------
Debugger Exception Notification
---------------------------
Project Jugoso.exe raised exception class EReportPrinter with message
'Unexpected header code [82] found in report file.'. Process stopped. Use Step
or Run to continue.
---------------------------
OK Help
---------------------------

el archivo reportehoy.pdf se crea, sin embargo al intentar abrirlo con Acrobat este dice que el archivo esta dañado. ¿Alguna idea?
Responder Con Cita