Imprimir nros de pagina [Archivo]

Viky

13-11-2009, 23:49:57

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

14-11-2009, 00:27:59

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:
Nro_Pagina:=QuickRep1.QRPrinter.PageCount;
.
Saludos...:)

Viky

14-11-2009, 00:50:46

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

15-11-2009, 14:07:45

antes del preview ó printer tenes que hacer lo siguiente:

nCantidadHojas := QuickReport1.QRPrinter.PageCount;
//Despues pones un label de esta forma
QRCantHojas.Caption := 'de ' + IntToStr(CantHojas);

rgstuamigo

16-11-2009, 13:58:46

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:
QuickRep1.Prepare;
Saludos...:)

Aleca

16-11-2009, 14:10:55

Antes hay q hacer el prepare (me lo comi) :(