procedure TDM.CrearFicheroRTF;
var
NDRStream: TMemoryStream;
begin
NDRStream := TMemoryStream.Create;
RvProject1.Engine := RvNDRWriter1;
RvProject1.open;
try
RvProject1.SelectReport('Albaran',true);
RvProject1.SaveToStream(NDRStream);
RvNDRWriter1.Stream:=NDRStream;
RvProject1.Execute;
RvRenderRTF1.PrintRender(NDRStream,'C:\Prueba.rtf');
finally
NDRStream.Free;
end;
RvProject1.close;
end;