Imprimir nros de pagina

[Viky]

Necesito imprimir el nro de pagina pero de la sgte forma:

Pagina 1 de 3
El nro de pagina actual, lo puedo hacer con la funcio PAGENUMBER. Mi consulta es como se cuántas páginas tiene la impresion ??
Como hago para q aparezca el total de paginas?

Gracias
Viky.

[rgstuamigo]

Empezado por Viky

Necesito imprimir el nro de pagina pero de la sgte forma:

Pagina 1 de 3
El nro de pagina actual, lo puedo hacer con la funcio PAGENUMBER. Mi consulta es como se cuántas páginas tiene la impresion ??
Como hago para q aparezca el total de paginas?

Gracias
Viky.

Si estas trabajando en quickReport seria asi:

Código Delphi [-]
Nro_Pagina:=QuickRep1.QRPrinter.PageCount;

.
Saludos...

[Viky]

escribi esa linea de codigo tanto en el evento BeforePrint como AfterPrint y en BeforePrint me trae 0 en AfterPrint no asigna ningun valor.
Donde tendria q escribir dicho codigo?

[Aleca]

antes del preview ó printer tenes que hacer lo siguiente:

Código Delphi [-]
nCantidadHojas := QuickReport1.QRPrinter.PageCount;
//Despues pones un label de esta forma
QRCantHojas.Caption :=  'de ' + IntToStr(CantHojas);

[rgstuamigo]

Empezado por Viky

escribi esa linea de codigo tanto en el evento BeforePrint como AfterPrint y en BeforePrint me trae 0 en AfterPrint no asigna ningun valor.
Donde tendria q escribir dicho codigo?

Bueno quisas debas preparar el reporte antes de obtener el numero de pagina, algo asi:

Código Delphi [-]
QuickRep1.Prepare;

Saludos...

[Aleca]

Antes hay q hacer el prepare (me lo comi)