Discussion :

[nawej]

votre aide s'il vous plait

[EricDgn]

Bonjour,

Une façon de faire pour provoquer un saut de page après x enregistrements imprimés:

En mode création de l'état, ajouter un champ indépendant, nommé p.ex nbLignes, avec ces 3 propriétés:
Source contrôle: =1
Cumul: en continu
Visible: Non


Ensuite sélectionner la section Détail de cet état et y ajouter la procédure événementielle suivante pour l'événement "Au formatage"

Code :

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

1
2
3
4
5
6
7
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    If Me.nbLignes Mod 60 = 0 Then              '--- à chaque multiple de 60
        Me.Section(acDetail).ForceNewPage = 2   '--- imprimer sur une nouvelle page
    Else
        Me.Section(acDetail).ForceNewPage = 0   '--- imprimer sur la page en cours
    End If
End Sub

En attaché, un petit exemple, saut de page après 12 enregistrements.

Bonne continuation.