Impression couleur alternée sur entête de groupe

**mariol** · 04/03/2006, 04h56

Bonjour, dans la FAQ j'ai trouvé un code pour alterné la couleur sur chaque ligne du détail

- dans l'événement Sur impression de la section Détail (=Section(0)), copier :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Détail_Print(Cancel As Integer, PrintCount As Integer) 
     'utiliser Détail_Print, PAS Détail_Format qui est appelé PLUSIEURS fois        
     If ([NoLigne] Mod 2) = 0 Then         
          Section(0).BackColor = vbWhite     
     Else         
          Section(0).BackColor = 13434879 
          'jaune pâle : joli et discret     
     End If 
End Sub

Y a-t-il une facon de modifier le code pour qu'il fonctionne avec les entêtes de groupe.

Merci à l'avance

FRANK

**loufab** · 04/03/2006, 22h57

C'est serait beaucoup mieux avec les balises Code. Merci d'éditer ton message.

En ce qui concerne le code c'est la même chose mais en faisant référence à l'entête de groupe à la place de la section détail.

Cordialement,

**mariol** · 06/03/2006, 17h13

Bonjour Loufab, cela ne fonctionne pas,
Si je place l'évènement sur L'entête de groupe:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Entêtegroupe0_Print(Cancel As Integer, PrintCount As Integer) 
     'utiliser Détail_Print, PAS Détail_Format qui est appelé PLUSIEURS fois        
     If ([NoLigne] Mod 2) = 0 Then          
          Section(0).BackColor = vbWhite      
     Else          
          Section(0).BackColor = 13434879 
          'jaune pâle : joli et discret      
     End If 
End Sub