[Loviedo]

Esto a mi me funciona. Espero te ayude.

Código Delphi [-]
 uses RVClass, RVProj, RVCsStd;
 procedure TDM.Imprimedocumento1;
 var
   NDRStream:  TMemoryStream;
   MyPage: TRavePage;
   MyText1,MyText2: TRaveText;
 begin
   NDRStream := TMemoryStream.Create;
   try
     RvProject1.Engine := RvNDRWriter1;
     RvProject1.open;
     With RvProject1.ProjMan do
       begin
         MyPage := FindRaveComponent('Presupuesto1.Page1',nil) as TRavePage;
         MyText1 := FindRaveComponent('Text7',MyPage) as TRaveText;
         MyText1.Text := mFecha(TableAux1['fecha']);
       end;
     RvProject1.SelectReport('Presupuesto1',true);
     RvProject1.SaveToStream(NDRStream);
     RvNDRWriter1.Stream:=NDRStream;
     RvProject1.Execute;
     RvRenderPrinter1.Render(NDRStream);
     RvProject1.close;
   finally
     NDRStream.Free;
   end;
 end;

Saludos.