Foros Club Delphi - Imprimir nros de pagina

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Impresión (https://www.clubdelphi.com/foros/forumdisplay.php?f=4)

- - Imprimir nros de pagina (https://www.clubdelphi.com/foros/showthread.php?t=64996)

Viky	13-11-2009 23:49:57

Imprimir nros de pagina

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

Cita:

Empezado por Viky (Mensaje 346583)

Si estas trabajando en quickReport seria asi:

Código Delphi [-]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:

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

rgstuamigo

16-11-2009 13:58:46

Cita:

Empezado por Viky (Mensaje 346587)

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

16-11-2009 14:10:55

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

La franja horaria es GMT +2. Ahora son las 09:58:44.