Afficher nombre de pages dans un rapport

Bonjour,

Etant un néophyte, je désire afficher dans un rapport le nombre total de pages
en bas de chaque page.
Merci de votre aide
(j'arrive seulement à afficher la page correspondante avec l'objet TQRSysData

Salut,

Tu peux essayer ça :
- tu ajoutes un QRLabel juste après ton QRSysData avec la propriété Caption vierge
- sur l'événement OnPreview de ton QuickRep :

  QRLabel1.Caption:=' sur '+IntToStr(QRPrinter.PageCount);

Je te garantis pas le résultat car non testé.

Cilmarseille

Re,

Après vérif, ce code ne marche pas car il empêche le preview. J'ai trouvé sur l'aide de QReport le code qui va bien :

Même principe que dessus : tu ajoutes un QRLabel avec un caption vierge après ton QRSysData

procedure TForm1.Button1Click(Sender: TObject);
begin
  QuickRep1.Prepare;
  QRLabel1.Caption := ' sur ' + IntToStr(QuickRep1.QRPrinter.PageCount);
  QuickRep1.QRPrinter.Free;
  QuickRep1.QRPrinter := nil;
  QuickRep1.Preview;
end;

Par contre ça rallonge le temps de traîtement surtout pour les états avec beaucoup de pages....

L'adresse de la FAQ doc pour QuickReport : [ Lien ]

Cilmarseille
[ Lien ]