Comment insérer un saut de page après 60 lignes imprimées ?

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
Pièce jointe 483742

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:

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.