显示当前报表的页号

niochen

于 2009-02-20 10:17:00 发布

阅读量342

点赞数

CC 4.0 BY-SA版权

分类专栏： Delphi 文章标签：报表

本文链接：https://blog.youkuaiyun.com/jfree5200/article/details/3913073

Delphi 专栏收录该内容

95 篇文章

订阅专栏

    Procedure Tform1.PrintCurrentPage；
    Begin
with RvRenderPreview1 do 
begin
        PageEdit.Text := IntToStr(CurrentPage)；
//获取当前页号
PageLabel.Caption := '第' +IntToStr(CurrentPage-FirstPage+1) 
                   + ' 页/ ' + IntToStr(Pages)；
//显示“第X页/总页数”，其中Pages为报表的总页数
end； { with }
    end；