Rave中如何取出一个Report包含的Page页数?
这段代码可以Show出 页数 呀!
procedure TForm1.Button1Click(Sender: TObject);
var
MyReport: TRaveReport;
begin
RvProject1.Open;
With RvProject1.ProjMan do
begin
MyReport := FindRaveComponent('Report1',nil) as TRaveReport; //查找
Report
messagebox(0,pchar(IntToStr(MyReport.PageList.Count)), '总页数',
mb_ok);//获取总页数
end; { with }
RvProject1.ExecuteReport('Report1');
RvProject1.Close;
end;
在Rave报告设计器中还需要这样一个步骤!
(1)在右侧对象树面版中选择对应的Report!
(2)通过左侧的对象属性面板修改对应Report的PageList属性,[Add Page]把所需要的页加
入到 Page List 中!
如果不进行如上步骤,会出现错误!
|