Re,
Trouvé je ne sais plus où et non testé :
Dans la section déclaration du module de l'état :
Private TotalPage As TonTypeDeVariable 'Currency, Long...
Dans l'événement Sur impression de la section détail :
1 2 3 4 5
| Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
TotalPage = TotalPage + Me.LeChampATotaliser
End Sub |
Dans le pied de page, ajouter un champ "txtTotalPage", et sur l'événement Sur impression du pied de page :
1 2 3 4 5 6 7 8
| Private Sub ZonePiedPage_Print(Cancel As Integer, PrintCount As Integer)
Me.txtTotalPage.Value = TotalPage
'Réinitialiser la variable pour la page suivante
TotalPage = 0
End Sub |
Ca dit quoi ?
Domi2
Partager