Discussion :

[timoth]

Bonjour !

Désolé de vous em....er encore, mais je crois bien que ca pourrait etre la derniere fois. (Soyez pas tristes, je trouverai d'autres problemes)

Ma question : Dans mes états, j'utilise les pieds de pages pour les numéros de page (sur chaque page bien sur), mais aussi pour mettre un encart (sur la derniere page seulement).
Sur les premieres pages, mon encart est mis en visible = False. Jusque la, ça marche tres bien. Pour la méthode, voir ici.

J'aimerais cependant pouvoir réduire le pied de page quand l'encart est invisible, mais la hauteur du pied de page ne peut etre plus petite que la hauteur de mon encart, meme invisible.
La méthode Visible n'est pas la bonne ? Cette opération est impossible? ...

Merci!

[marot_r]

La hauteur des entêtes et pieds de page est fixe.

Tu pourrais essayer avec des entêtes et pied de sections qui peuvent avoir des hauteurs variables (can grow, can shrink).

A+

[timoth]

Bon, c'est bon, j'ai trouvé une solution:
A l'ouverture du rapport, je mets le pied de page au minimum en mettant la taille de l'image a zero et mes deux text box au plus haut.

Code :

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

1
2
3
4
5
6
Private Sub Report_Open(Cancel As Integer)
tb_date.Top = 0
tb_pages.Top = 0
insert.Height = 0
PageFooterSection.Height = 0
End Sub

A la mise en page de mon pied de page

Code :

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

1
2
3
4
5
6
7
Private Sub PageFooterSection_Format(Cancel As Integer, FormatCount As Integer)
If Page = Pages Or Pages = 1 Then
insert.Height = 1150
tb_date.Top = 400
tb_pages.Top = 400
End If
End Sub

Voilaaaa