RvClass,RvCsStd,RvCsRpt;//首先要加载这几个单元

写个简单的例子吧
var
  i,j:integer;
  s:string;

adoquery1.active:=false;
adoquery1.sql.clear;
adoquery1.sql.add('select 达标数字段,总数字段 from 你的表')
adoquery1.active:=true;
i:=adoquery1.fieldbyname('达标数字段').asinteger;
j:=doquery1.fieldbyname('总数字段').asinteger;
s:=format('%.2f',[i*100/j])+'%';

//这里已经计算出百分比

//假设你写到rave的text5中
那么在打印按钮下
    RvProject1.Open;
    MyPage := RvProject1.ProjMan.FindRaveComponent('Report1.Page1',nil) as TRavePage;  //注意是Report1.Page1，两层关系！！
    MyText1 := RvProject1.ProjMan.FindRaveComponent('Text5',MyPage) as TRaveText;
    MyText1.Text :=s;  //百分比
    RvProject1.Execute;
    RvProject1.Close;