Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Nouveau Candidat au Club
    Comment insérer un saut de page après 60 lignes imprimées ?
    votre aide s'il vous plait

  2. #2
    Membre chevronné
    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.