| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
rockfavc
Cmdr
Registrado: 23 Ago 2002Mensajes: 138Ubicación: Colombia (Medellín)
|
 Publicado: Mar 09 Nov, 2004 4:58 pm Asunto: QuickReport & numeración de páginas |
 |
|
Hola colegas!!
Alguien me puede decir como hago para que en un reporte con QuickReprot pueda paginar las hojas de la siguietne manera pagactual/total de paginas, 1/25 por ejemplo.
Muchas gracias.
Saludos |
|
| Volver arriba |
|
 |
alfredo
Master
Registrado: 13 Oct 2003Mensajes: 246Ubicación: Valencia Venezuela
|
| Publicado: Mie 10 Nov, 2004 9:09 pm Asunto: |
|
|
Hola, de momento lo mejor que he conseguido es esto:
Poner un TQRSysDate con la Propiedad Data a qrsPageNumber y a continuacion una TQRLabel donde pondremos "/"+UltimaPagina.
declaramos en header | Código: | private
int UltimaPagina;
|
en el cpp | Código: |
void __fastcall TForm1::QuickRep1BeforePrint(TCustomQuickRep *Sender,
bool &PrintReport)
{
UltimaPagina=0;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::QuickRep1EndPage(TCustomQuickRep *Sender)
{
UltimaPagina++;
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::QRLabel1Print(TObject *sender, AnsiString &Value)
{
QRLabel1->Caption="/"+IntToStr(UltimaPagina+1);
}
//----------------------------------------------------------------------------
|
Hay que llamar al metodo Prepare del QuickRep antes de llamar a Print o Preview para que esto funcione. |
|
| Volver arriba |
|
|
JesúsGandia
Master
Registrado: 17 Jul 2004Mensajes: 403Ubicación: Gandia, Valencia
|
| Publicado: Sab 10 Jun, 2006 10:07 pm Asunto: Mas sencillo |
|
|
| Código: |
// Anter de Imprimir
QReport->Prepare();
QReport->QRLabelPaginasTotal = QReport->QRPrinter->PageCount;
QReport->Print()
|
_________________
Muchos hombres no se equivocan jamás porque no se proponen nada razonable. |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
