在线等:delphi7中的RAVE制作的报表中添加Memo控件遇到的问题(50分)

  • 主题发起人 主题发起人 hawlj
  • 开始时间 开始时间
H

hawlj

Unregistered / Unconfirmed
GUEST, unregistred user!
delphi7中的RAVE制作的报表中添加Memo控件遇到是当Memo内的容量很多,如何设置它能自动换页。
 
真的没人用RAVE吗
 
应该是自动换行吧,他的自动换行和delphi里的label控件的换行一样,
如果是换页问题,rave会自动换页的吧。
如有问题请联系我!
 
我试过不行,不能自动换页。
 
你的意思应该是报表中只有一个memo控件吧,你要打印足够多的memo中的信息,让memo自动换页是吧,而且memo中的信息是固定的吧,这种情况是不能自动换页的。解决办法如下:
你的form中memo中的信息改为query的查询结果,用databand和datatext控件接受query的查询结果,这样,查询结果为多页时rave会自动换页。
 
那岂不是要数据库,小程序会变得很大。
 
你的意思只是传递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。
我已经测试过了,可以实现换页的。
 
好长时间没有来了,不过这些代码我确实已经测试过了,可以实现换页的,要是不行,5~~~
 

Similar threads

D
回复
0
查看
844
DelphiTeacher的专栏
D
D
回复
0
查看
854
DelphiTeacher的专栏
D
S
回复
0
查看
915
SUNSTONE的Delphi笔记
S
后退
顶部