Numero total de paginas

[m8estrella83]

Hola !
estoy haciendo una aplicacion en delphi 5 con paradox 7 en donde se hacen facturas y utitlizo quickrepot el problema es ke en las facturas necesito poner el numero de pagina y el numero total de paginas ejemplo
Pag. 1 de 5 para eso utilizo el siguiente codigo

form9.QuickRep1.Prepare;
form9.qrlabel25.caption:=inttostr(form9.quickrep1.QRPrinter.pagecount);
form9.QuickRep1.Preview;

y funciona bien pero me a pasado en varias ocasiones ke por ejemplo son 5 paginas y me dice pag 1 de 8

la verdad no e podido saber porke kisisera ver si ud. me pueden ayudar

[marcoszorrilla]

Yo utilizo este código que puedes ver y nunca me ha fallado:

Código Delphi [-]
 procedure TfrFichas.SpPrintClick(Sender: TObject);
begin
DmXXX.Fich.DisableControls;
        try
Application.CreateForm(TfrLstFichas, frLstFichas);
frlstfichas.ListaFichas.Prepare;
nPages:=frlstfichas.Listafichas.qrprinter.PageCount;

//Lanzar diálogo de páginas.
Application.CreateForm(TfrDlgPaginas, frDlgPaginas);
frDlgPaginas.ShowModal;

frlstfichas.ListaFichas.printersettings.firstpage:=frDlgPaginas.SpFirst.value;
frlstfichas.ListaFichas.printersettings. lastpage:=frDlgPaginas.SpLast.Value;
frlstfichas.listafichas.Print;

        finally
        DmXXX.Fich.EnableControls;
        end;
frLstFichas.Close;
end;

Un Saludo.