Discussion :

[volsan]

Bonjour, je veux mettre des bordures auto-extensibles dans un état pour séparer mes colonnes :

J'ai mis ces quelques lignes dans la section sub detail_format mais lorsque j'exécute et lance l'aperçu avant impression je n'ai que le premier trait qui est dessiné mais pas les autres.

Je ne comprends plus rien.

Je vous remercie par avance de votre aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
'trait vertical 1
Me.Line (0, 0)-(0, 5000), 0, BF
 
'trait vertical 2
Me.Line (909, 0)-(909, 5000), 0, BF
 
'trait vertical 3
Me.Line (7552, 0)-(7552, 5000), 0, BF
 
'trait vertical 4
Me.Line (8665, 0)-(8667, 5000), 0, BF
 
'trait vertical 5 de base
Me.Line (9292, 0)-(9292, 5000), 0, BF
 
'trait vertical 6
Me.Line (10672, 0)-(10672, 5000), 0, BF
 
'trait vertical 7
Me.Line (11172, 0)-(11172, 5000), 0, BF
 
End Sub

[madefemere]

Bonjour,

J'obtiens de belles lignes verticales coloriées avec :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
'trait vertical 1
Me.Line (0, 0)-(0, 5000), vbBlack
'trait vertical 2
Me.Line (909, 0)-(909, 5000), vbRed
 
'trait vertical 3
Me.Line (7752, 0)-(7752, 5000), vbGreen
 
'trait vertical 4
Me.Line (8665, 0)-(8665, 5000), vbBlue
 
'trait vertical 5 de base
Me.Line (9292, 0)-(9292, 5000), vbYellow
 
'trait vertical 6
Me.Line (10672, 0)-(10672, 5000), vbRed
 
'trait vertical 7
Me.Line (11172, 0)-(11172, 5000), vbBlack
 
End Sub

Voici ce que dit l'aide d'Access sur la méthode Line :

La méthode Line permet de dessiner des lignes et des rectangles dans un objet Report lorsque l'événement Print se produit.

expression.Line(Étape(x1, y1) – Étape(x2, y2), couleur, BF)

expression Requise. Expression renvoyant l'un des objets figurant dans la liste Application.Étape Mot clé (mot clé : mot qui fait partie du langage de programmation de Visual Basic pour Applications. Les mots clés incluent les noms d'instructions, de types de données, de méthodes, d'opérateurs, d'objets et de fonctions prédéfinies. N'utilisez pas de mots clés pour les noms de variables ou d'objets.) indiquant que les coordonnées du point de départ dépendent de la position graphique spécifiée par les paramètres actuels des propriétés CurrentX et CurrentY de l'argument objet.x1, y1 Valeurs de type Single désignant les coordonnées du point de départ de la ligne ou du rectangle. Les propriétés Scale (ScaleMode, ScaleLeft, ScaleTop, ScaleHeight et ScaleWidth) de l'objet Report spécifié par l'argument objet déterminent l'unité de mesure utilisée. Si vous omettez cet argument, la ligne commence à la position indiquée par les propriétés CurrentX et CyrrentY.Étape Mot clé indiquant que les coordonnées du point d'arrivée dépendent du point de départ de la ligne.x2, y2 Valeurs de type Single indiquant les coordonnées du point d'arrivée de la ligne à dessiner. Ces arguments sont obligatoires.couleur Valeur de type Long désignant la couleur RVB (rouge-vert-bleu) du tracé de la ligne. En l'absence de cet argument, la valeur de la propriété ForeColor est utilisée. Vous pouvez aussi utiliser la fonction RVB ou QBColor pour spécifier la couleur.B Option qui crée un rectangle en considérant que les coordonnées fournies sont celles des coins opposées du rectangle.F F ne peut pas être utilisé sans B. Si l'option B est utilisée, l'option F indique que la couleur de remplissage du rectangle est la même que celle du contour. Si B est utilisé sans F, la couleur de remplissage du rectangle est celle spécifiée par les paramètres actuels des propriétés FillColor et BackStyle. La valeur par défaut de la propriété BackStyle est Normal pour les rectangles et les lignes.
Remarques
Vous ne pouvez utiliser cette méthode que dans une procédure événementielle (procédure événementielle : procédure exécutée automatiquement en réponse à un événement provoqué par l'utilisateur ou le code du programme, ou déclenché par le système.) ou une macro (macro : action ou ensemble d'actions que vous pouvez utiliser pour automatiser des tâches. Les macros sont enregistrées dans le langage de programmation Visual Basic pour Applications.) spécifiée par la propriété d'événement OnPrint ou OnFormat d'une section d'état (état : objet de base de données Access qui imprime des informations mises en forme et organisées en fonction de vos spécifications. Des synthèses de ventes, des listes de numéros de téléphone et des étiquettes de publipostage sont des exemples d'états.) ou par la propriété d'événement OnPage d'un état.

Pour joindre deux lignes, l'une des lignes doit commencer au point d'arrivée de la ligne précédente.

La largeur de la ligne dépend de la définition de la propriété DrawWidth. Le tracé d'une ligne ou d'un rectangle à l'arrière-plan dépend de la définition des propriétés DrawMode et DrawStyle.

Lorsque vous appliquez la méthode Line, les propriétés CurrentX et CurrentY sont définies en fonction du point d'arrivée spécifié par les arguments x2 et y2.

Vérifiez l'utilisation du dernier argument facultatif BF, de même la largeur de votre état.

Cordialement

[volsan]

Effectivement, en enlevant 0, BF et en le remplaçant par vbBlack, cela fonctionne impeccable.

Merci beaucoup pour ta réactivité.