找到了: //获取报表总页数 begin var nPageCount:Byte; begin with DataSource.DataSet do try DisableControls; //控制Grid中数据,使之不随指针移动而滚动 QuickRep.Prepare; nPageCount:=QuickRep.QRPrinter.PageCount; QuickRep.QRPrinter.Free; QuickRep.QRPrinter:=nil; Page_L.Caption:='共'+IntToStr(nPageCount)+'页'; finally EnableControls; end; end;
quickrep.????;自己查一吧,记不清了
//获取报表总页数
begin
var
nPageCount:Byte;
begin
with DataSource.DataSet do
try
DisableControls; //控制Grid中数据,使之不随指针移动而滚动 QuickRep.Prepare;
nPageCount:=QuickRep.QRPrinter.PageCount;
QuickRep.QRPrinter.Free;
QuickRep.QRPrinter:=nil;
Page_L.Caption:='共'+IntToStr(nPageCount)+'页';
finally
EnableControls;
end;
end;