你的意思只是传递form里的内容到rave报表里memo中,便执行打印吧,我在form里加了memo和button二个控件,rave报表里面加了一个memo控件,打印按钮代码如下:(你作一下参考吧)
procedure TForm1.Button1Click(Sender: TObject);
var Memo : TRaveMemo ;
Mypage : TRavePage ;
begin
RvProject1.Open ;
with RvProject1.ProjMando
begin
Mypage := FindRaveComponent('report1.Page1' , nil ) as TRavePage ;
Memo := FindRaveComponent('Memo' , MyPage )as TRaveMemo ;
Memo.Text := Memo1.Text ;
end ;
Try
RvProject1.ExecuteReport('Report1');
Finally
RvProject1.Close ;
end;
end;
注:rave中的memo的name的属性为memo;
form里的memo的name属性为memo1。
我已经测试过了,可以实现换页的。