Discussion :

[TheReturnOfMuton]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !

[ucfoutu]

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" ?

[TheReturnOfMuton]

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 ?..

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

.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 ) !

[TheReturnOfMuton]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

@ + !