Número total de página
Con el componente quickreportsysdata en su propiedad data qrsPageNumber, en el preview del quick report puedo saber el número de la página actual, pero
¿Cómo puedo saber el número total de páginas que se imprimirán, y poder ponerlas en un qrlabel, para en el preview poder saber el número de la página actual que estoy mirando, y el número total de páginas que se imprimirán
de la forma
página 7 de 70
ahí me da el número actual y el número total, cómo puedo saber el número total de páginas en el preview del quick report?
¿Cómo puedo saber el número total de páginas que se imprimirán, y poder ponerlas en un qrlabel, para en el preview poder saber el número de la página actual que estoy mirando, y el número total de páginas que se imprimirán
de la forma
página 7 de 70
ahí me da el número actual y el número total, cómo puedo saber el número total de páginas en el preview del quick report?
2 respuestas
Respuesta de nahuelon
1
Hi,
¿cómo te va? Mira, yo tengo Delphi 5 con los componentes QuickReport que me trajo y estos automáticamente me imprimen en pantalla la cantidad de páginas totales que se van a imprimir.
¿Probaste con lo que te dije? A mi con las propiedades mostradas a través del botón derecho en el objeto me anduvo perfectamente.
Nahuelon..
¿cómo te va? Mira, yo tengo Delphi 5 con los componentes QuickReport que me trajo y estos automáticamente me imprimen en pantalla la cantidad de páginas totales que se van a imprimir.
¿Probaste con lo que te dije? A mi con las propiedades mostradas a través del botón derecho en el objeto me anduvo perfectamente.
Nahuelon..
Respuesta de darkmanx
1
Proba esto en el evento del tu botón Imprimir:
Reporte.Prepare;
Reporte.QRLabel1.Caption := 'de ' + IntToStr(Reporte.QRPrinter.PageCount);
Reporte.QRPrinter.Free;
Reporte.QRPrinter:=Nil;
Reporte.Preview; o Reporte.Print;
Cualquier cosa pregunta, Atentamente. DX.
PD: No te olvides de finalizar la pregunta.
Reporte.Prepare;
Reporte.QRLabel1.Caption := 'de ' + IntToStr(Reporte.QRPrinter.PageCount);
Reporte.QRPrinter.Free;
Reporte.QRPrinter:=Nil;
Reporte.Preview; o Reporte.Print;
Cualquier cosa pregunta, Atentamente. DX.
PD: No te olvides de finalizar la pregunta.