Ver Mensaje Individual
  #5  
Antiguo 16-11-2006
Avatar de johurgi
johurgi johurgi is offline
Miembro
 
Registrado: jul 2006
Posts: 95
Reputación: 20
johurgi Va por buen camino
Ya lo solucione, era un parametro del RvNDRwriter,yo lo dejaba en modo por defecto como el delphi me lo insertaba y habia que cambiarlo a smuser, de esta forma no se vuelve loco y comienza a dar errores.

El codigo de como me ha quedado el metodo a groso modo es el siguiente:

Código:
procedure TFInformesPaciente.GenerarInformeConWord;
var
  NDRStream: TMemoryStream;
  fich: string;
begin
NDRStream := TMemoryStream.Create;
  try
    fich := 'C:\WINDOWS\temp\inftemporal.RTF';
    RvProject2.Engine := RvNDRWriter1;
    RvProject2.Open;
    NDRStream := TMemoryStream.Create;
    RvProject2.SaveToStream(NDRStream);
    RvNDRWriter1.Stream:= NDRStream;
    RvProject2.Execute;
    try
      RvRenderRTF1.PrintRender(NDRStream,fich);
    except
      raise Exception.Create('Error al crear fichero');
    end;
    RvProject2.close;
  finally
    NDRStream.Free;
  end;
  if fileExists(fich) then
  begin
    try
      LMDStarter1.Command:='C:\Archivos de programa\Microsoft Office\OFFICE11\WINWORD.EXE';
      LMDStarter1.Parameters:=fich;
      LMDStarter1.Execute;
    except
      ShowMessage('Error al iniciar el word.');
    end;
  end;


Gracias Loviedo por tu ayuda.
Responder Con Cita