这个问题帮忙看看,200分相送,谢谢!http://www.delphibbs.com/delphibbs/dispq.asp?lid=4001794Rave中用以下代码,取总页数,一直都是1页,为何?该怎么解决??procedure TForm1.Button1Click(Sender: TObject);var MyReport: TRaveReport;
begin
RvProject1.Open;
With RvProject1.ProjMando
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;
BTW,在Rave报告设计器中已经做了这一个步骤:(1)在右侧对象树面版中选择对应的Report!(2)通过左侧的对象属性面板修改对应Report的PageList属性,[Add Page]把所需要的页加入到 Page List 中!谢谢!!