Código Delphi [-]
{ Event for DataBand1.OnBeforePrint }function DataBand1_OnBeforePrint(Self: TRaveDataBand);begin if dataview1haber.asfloat < 0 then   datatext5.color := clred; else   datatext5.color := clblack; end if; if dataview1debe.asfloat < 0 then   datatext4.color := clred; else   datatext4.color := clblack; end if;end OnBeforePrint;

Código Delphi [-]
{ Event for DataBand1.OnBeforePrint }
function DataBand1_OnBeforePrint(Self: TRaveDataBand);
begin
 if dataview1haber.asfloat < 0 then
   datatext5.color := clred;
 else
   datatext5.color := clblack;
 end if;
 if dataview1debe.asfloat < 0 then
   datatext4.color := clred;
 else
   datatext4.color := clblack;
 end if;
end OnBeforePrint;

Código Delphi [-]
var
  Pagina: integer = 0;
 
implementation
 
uses RVClass, RVProj, RVCsStd;
 
{$R *.dfm}
 
procedure TFDM.Imprimedocumento1;
var
  MyPage: TRavePage;
  MyText1: TRaveText;
  NDRStream:  TMemoryStream;
begin
  inc(Pagina);
  NDRStream := TMemoryStream.Create;
  try
    RvProject1.Engine := RvRenderWriter1;
    RvProject1.open;
    With RvProject1.ProjMan do
      begin
        MyPage := FindRaveComponent('Ficha1.Page1',nil) as TRavePage;
        MyText1 := FindRaveComponent('Text1',MyPage) as TRaveText;
        MyText1.Text := 'Página '+inttostr(Pagina);
      end;
    RvProject1.SelectReport('Ficha1',true);
    RvProject1.SaveToStream(NDRStream);
    RvRenderWriter1.Stream:=NDRStream;
    RvProject1.Execute;
    RvRenderPrinter1.Render(NDRStream);
    RvProject1.close;
  finally
    NDRStream.Free;
  end;
end;