该页是第几页可在rp中直接设置就行了
data->qrsPageNumber
共几页如下:
procedure TgzdFrm.ButtonClick(Sender: TObject);
begin
gzdreport.quickrep1.Prepare;
gzdreport.PrintDialog1.MaxPage :=gzdreport.quickrep1.Printer.PageCount;
//gzdreport.quickrep1.cleanup;
//必须加上这一句
gzdreport.ysLabel.Caption := '共'+TRIMLEFT(INTTOSTR(gzdreport.PrintDialog1.MaxPage))+'页-';
dm.gzdtb.open;
gzdreport.QuickRep1.preview;
end;
不知道你问的是不是这个意思?