voici mes codes de numerotation (venez-moi en aide S.V.P!)

Salut  chers developpeurs!
Dernièremenet j'ai posé un thème sur la numerotation de pages comme cela se fait dans la facturation. voici le link de ma dernière question:
http://www.delphifr.com/infomsg_SIMPLE-NUMEROTATION-VOUS-PLAIT_814771.aspx#3
J'ai du vraiment creuser la tête pour avoir écrit les petits codes ci-dessous. Ca marchent mais curieusement la numerotation ne se fait que jusqu'à deux.(cela veut dire qu'au lancement la numerotation commence mais elle ne se limitent qu'au chiffrent 2)

voic mes codes:

var
Form1: TForm1;
i : integer;
implementation
{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
begin
  i := 0 ;
  QuickRep1.Prepare;
  QrLabel2.Caption := IntToStr(i);
  QuickRep1.Preview;
end;

procedure TForm1.QuickRep1StartPage(Sender: TQuickRep);
begin
  i := i + 1;
  Form1.Qrlabel1.caption := IntToStr(i);
end;

JE  VOUS EN PRIE...JE SUIS AU BOUT...VENEZ-MOI EN AIDE.

new2000

bonjour new2000,

je ne sais pas si cela t'aidera, mais dans mes sources j'utilise cette propriété "QuickRep.PageNumber".
Cette propriété te retourne le nombre de page généré par Quickreport.

exemple :

procedure TWndPrintRapportStations.QuickRepStartPage(Sender: TCustomQuickRep);
begin
  QRLabelPage.Caption := 'Page ' + IntToStr( QuickRep.PageNumber );
end;

Bonne Prog, [;)] Olivier PS : Lorsqu'une [b]réponse[/b] vous convient, n'oubliez pas de la valider.

Gentil de ta part cher Olivier de m'avoir repondu!

Malheureusement, je prefererai une numerotation tenant compte de l'impression. A chaque fois qu'une impression est faite la numerotation en dependra aussi.
Première impression = numero 1, deuxième impression = numero 2.

Ok, ciao!
New2000.