Tables
Formulaires
Automation
Administration
Envoyer un mail
Outlook
Dates - Heures
Fichiers
Références
La normalisation
VBA
1008417 visiteurs
3 visiteurs en ligne
Plaçons d'abord deux TextBox que nous nommerons txtCompteurLigne et txtTotalParPage dans le pied de page.
Nous ajoutons les codes suivants dans les Sub appropriées de l'état:
Option Compare Database Option Explicit ' Déclaration des variables Dim CompteurLigne As Integer Dim TotalParPage As Currency
' Evénement "Sur impression" de la section Détail Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) CompteurLigne = CompteurLigne + 1 TotalParPage = TotalParPage + [montant] End Sub
' Evénement "Sur impression" de la section Pied de page Private Sub ZonePiedPage_Print(Cancel As Integer, PrintCount As Integer) Me.txtCompteurLigne = CompteurLigne Me.txtTotalParPage = TotalParPage CompteurLigne = 0 TotalParPage = 0 End Sub