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 !