Probleme avec PDF Creator

Bonjour,
J'utilise ce programme dispo sur le web afin de générer un PDF qui peut avoir plusieurs pages.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

Dim clPDF As New clsPDFCreator With clPDF .BeginPage .DrawText 19.2, 1.5, "Page " & Trim(CStr(.Pages)), "Fnt1", 12, pdfAlignRight .DrawObject "Footers" ...   'Vu que le texte généré peut etre long, 'alors j'utilise ce bout de code plusieurs fois : If iLine < 2 Then .EndPage .BeginPage iLine = 28 End If ... .EndPage   ' Definisce una risorsa da stampare su tutte le pagine .StartObject "Footers", pdfAllPages .DrawText 20, 1.5, "/" & Trim(CStr(.Pages)), "Fnt1", 12, pdfAlignRight .EndObject   .ClosePDFFile end with

---

De cette maniere les pages sont créées dynamiquement, et on repart a chaque fois du haut de la nouvelle page (ou iLine est le no de ligne courant).

Le probleme est que seule la premiere page possede son "footer" ("Page 1 /2").
Je me demande si le pb vient de tous ces blocs

Code:

---

1 2 3 4 5 6

If iLine < 2 Then .EndPage .BeginPage iLine = 28 End If

---

qui empecheraient le programme de s'y retrouver sur les pages existantes...

Auriez-vous une piste pour m'aider a avoir les footers sur toutes les pages ?
Merci d'avance !

Bonjour,

Ben...

Je vois que tes footers ne sont utilisés qu'une seule fois, moi,

mets les donc à nouveau à quaque fois que tu forces le changement de page ... (puisque tu reviens à 28).

Mais pourquoi ne pas le laisser gérer tout seul, sans intervenir en "forçant" ?

Citation:

---

Envoyé par ucfoutu

Bonjour,
Je vois que tes footers ne sont utilisés qu'une seule fois, moi,
mets les donc à nouveau à quaque fois que tu forces le changement de page ... (puisque tu reviens à 28).

---

Eh bien d'apres le "pdfAllPages" je pensais que le footer s'appliquait a toutes les pages, non ?..

Citation:

---

Envoyé par ucfoutu

Mais pourquoi ne pas le laisser gérer tout seul, sans intervenir en "forçant" ?

---

Eh bien parce qu'a chaque fois que j'écris qqchose dans le doc, je specifie le no de ligne courant "iLine", que je decremente au fur et a mesure :

Code:

---

.DrawText 15, iLine, "texte" "Fnt2", 10, pdfAlignLeft

---

Quand je vois qu'il est a 2 (donc tout en bas dans la page) je change de page.
Je suis obligé de faire comme ca, car certains éléments de mon doc doivent etre obligatoirement placés en haut d'une nouvelle page...

Voila le souci... en tout cas j'essaye de copier coller le footer a chaque changement de page, et je te tiens au courant.

Merci et @ + ucfoutu (enfin j'espere pas :D) !

Merci foutu,
effectivement voila ce qu'il fallait faire dans mes sauts de page :

Code:

---

1 2 3 4 5 6 7 8

If iLine < 6 Then .EndPage .BeginPage .DrawText 19.5, 1.5, "Page " & Trim(CStr(.Pages)), "Fnt1", 12, pdfAlignRight .DrawObject "Footers" iLine = 28 End If

---

@ + ! :)