Posez votre question Signaler

QuickReport Option LastPageFooter [Résolu]

Messages postés
102
Date d'inscription
mardi 13 novembre 2007
Dernière intervention
19 août 2018
 - - Dernière réponse : pierrotk10d
Messages postés
102
Date d'inscription
mardi 13 novembre 2007
Dernière intervention
19 août 2018
 - 5 mars 2018 à 14:52
Delphi / Pascal Posez votre question Signaler
Bonjour,

J'ai un petit soucis avec l' option LastPageFooter du QuickReport (avec Delphi 5).
Que je mette LastPageFooter à True ou False le texte (sur la propriété caption d'un QRLabel) de la bande PageFooter s'imprime sur toutes les pages.D'après la doc, avec l'option à True le texte ne devrait s'inscrire que sur la dernière page du rapport. Si quelqu'un connait une solution merci d'avance.
Cordiales salutations
Afficher la suite 

Votre réponse

Répondre au sujet

1 réponse

Signaler Commenter la réponse de pierrotk10d
Messages postés
102
Date d'inscription
mardi 13 novembre 2007
Dernière intervention
19 août 2018
0
Merci
Bonjour,
J'ai trouvé une solution à mon problème. Voici comment
Lors de chaque passage dans l’événement BeforePrint de la bande SubDetail j’incrémente un compteur (nInscrits). Et ensuite dans l'événement BeforePrint de la Bande PageFooter je teste suivant ce bon de code si je suis à la dernière page. 
procedure TfQRapport.PageFooterBand1BeforePrint(Sender: TQRCustomBand; var PrintBand: Boolean);
begin
  if fQRapport.RecordNumber <> fQRapport.RecordCount then 
    QRLabel10.Caption :=  ''
  else
     QRLabel10.Caption := IntToStr(nInscrits) + ' inscrits au club';
end;

C'est pas très académique mais ça marche!
Cordialement

Commenter la réponse de pierrotk10d

Votre réponse

Répondre au sujet
Posez votre question
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.