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
    Homme Profil pro
    excel vba
    Inscrit en
    novembre 2012
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Congo-Kinshasa

    Informations professionnelles :
    Activité : excel vba
    Secteur : Industrie Pharmaceutique

    Informations forums :
    Inscription : novembre 2012
    Messages : 1
    Points : 1
    Points
    1

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

    votre aide s'il vous plait

  2. #2
    Membre expérimenté
    Homme Profil pro
    retraité
    Inscrit en
    juin 2012
    Messages
    952
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : retraité
    Secteur : Associations - ONG

    Informations forums :
    Inscription : juin 2012
    Messages : 952
    Points : 1 541
    Points
    1 541

    Par défaut

    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
    Nom : PageBreak.jpg
Affichages : 24
Taille : 49,0 Ko

    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.
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Comment insérer un saut de page?
    Par hittony dans le forum Cognos
    Réponses: 2
    Dernier message: 08/06/2010, 10h55
  2. Réponses: 0
    Dernier message: 31/03/2010, 18h12
  3. Réponses: 7
    Dernier message: 25/08/2006, 17h31
  4. [VB.NET][EXCEL] Insérer un saut de page
    Par joKED dans le forum Windows Forms
    Réponses: 4
    Dernier message: 10/04/2006, 22h58
  5. [DOS] Comment insérer un saut de ligne ?
    Par Filippo dans le forum Autres Logiciels
    Réponses: 9
    Dernier message: 01/12/2005, 16h12

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo