Agrega un QrExpr y añade la función PageCount, y en el OnPrint concatenas el Dataset,Query ó table que tengas de este mismo sólo pones lo siguiente:
Código Delphi
[-]
QrExpt1.caption:=QrExpt1.caption + IntToStr(Tabla.RecordCount);
Es una idea Balazo que tengo.
Suerte....