打印(显示)当前页号

procedure TPreForm.RvRenderPreview1PageChange(Sender: TObject)；
begin
with RvRenderPreview1 do
begin
        PageEdit.Text := IntToStr(CurrentPage)；
// 获取当前页号，并将其转换成字符类型
PageLabel.Caption := '第 ' + IntToStr(CurrentPage -FirstPage + 1) 
+ ' 页/ ' + IntToStr(Pages)；
        // 在页标签上显示“第X页/总页数”
      end； { with }
end；