Pages paires et impaires dans un état
Sur un état, comment imprimer un en-tête de page différent selon que la page est paire ou impaire ?
- Ouvrez votre état en mode Création.
- Sélectionnez l’en-tête de page et faites apparaître ses propriétés (notamment l’onglet Evénement).
- Définissez l’événement
Au formatage
de façon à ce qu’il ressemble à :
1 2 3 |
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer) Me.Section(acPageHeader).Visible = ((Me.Page Mod 2) = 1) End Sub |
Dans ce cas, seuls les en-têtes impairs s’affichent ; les en-têtes pairs disparaissent complètement.
Remplacez la valeur 1 par la valeur 0 pour n’afficher que en-têtes pairs.
Variante
Vous ne souhaitez peut-être pas faire disparaître intégralement un en-tête pair ou impair.
Voici une autre approche qui consiste à afficher un texte différent dans chaque en-tête pair/impair :
- Dans l’en-tête de page, placez un intitulé (ou étiquette) grâce à l’icône Etiquette (Aa).
- Faites apparaître les propriétés de cet objet, notamment l’onglet Autres.
- Changez la propriété
Nom
pour baptiser l’objetlblTitre
. - Sélectionnez l’en-tête de page et faites apparaître ses propriétés (notamment l’onglet Evénement).
- Définissez l’événement
Au formatage
de façon à ce qu’il ressemble à :
1 2 3 4 5 6 7 8 9 10 11 |
Private Sub ZoneEntêtePage_Format(Cancel As Integer, FormatCount As Integer) With Me.lblTitre If Me.Page Mod 2 = 1 Then .Caption = "PAGE IMPAIRE : " & Me.Page .ForeColor = RGB(255, 0, 0) Else .Caption = "PAGE PAIRE : " & Me.Page .ForeColor = RGB(0, 255, 0) End If End With End Sub |
Dans cet exemple, les en-têtes impairs sont rouges, les en-têtes pairs verts. La légende change également à chaque fois…
kobe007seb > De mémoire, la mise en page n’est pas paramétrable au niveau Page, mais seulement au niveau État.
Peut-on faire quelque chose de semblable pour changer les marges suivant la parité des pages?
Merci