Méthode Report.Line (Access)

La méthode Line dessine des lignes et des rectangles sur un objet Report lorsque l’événement Print se produit.

Syntaxe

expression. Ligne (Étape (x1, y1) - Étape (x2, y2), Couleur, BF)

expression Obligatoire. Variable qui représente un objet Report . Expression qui renvoie l’un des objets de la liste S’applique à.

Parameters

Nom	Type de données	Description
Étape	Mot clé	Indique que les coordonnées du point de départ sont relatives à la position graphique actuelle donnée par les paramètres actuels des propriétés CurrentX et CurrentY de l’argument Object .
x1, y1	Single	Indique 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 Object déterminent l’unité de mesure utilisée. Si cet argument est omis, la ligne commence à la position indiquée par les propriétés CurrentX et CurrentY .
x2, y2	Single	Obligatoire. Indique les coordonnées du point de fin de la ligne ou du rectangle. Assurez-vous que le point de départ et le point de fin sont séparés par un trait d’union ( - ).
Color	Long	Indique la couleur RVB (rouge-vert-bleu) utilisée pour dessiner la ligne. Si cet argument est omis, la valeur de la propriété ForeColor est utilisée. Vous pouvez également utiliser la fonction RGB 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 spécifie que le rectangle est rempli avec la même couleur que celle utilisée pour dessiner le rectangle. 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

Utilisez cette méthode uniquement dans une procédure événementielle ou une macro spécifiée par la propriété d’événement OnPrint ou OnFormat pour une section d’état, ou la propriété d’événement OnPage pour un rapport.

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

La largeur du trait dessiné dépend du paramètre de la propriété DrawWidth . La façon dont une ligne ou un rectangle est dessiné sur l’arrière-plan dépend des paramètres des propriétés DrawMode et DrawStyle .

Lorsque vous appliquez la méthode Line , les propriétés CurrentX et CurrentY sont rétablies sur le point de terminaison spécifié par les arguments x2 et y2 .

Exemple

L’exemple suivant utilise la méthode Line pour dessiner un rectangle rouge de cinq pixels à l’intérieur du bord d’un rapport nommé EmployeeReport. La fonction RVB est utilisée pour rendre la ligne rouge.

Pour essayer cet exemple dans Microsoft Access, créez un rapport nommé EmployeeReport. Collez le code suivant dans la section Déclarations du module du rapport, puis basculez vers Aperçu avant impression.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
    ' Call the Drawline procedure 
    DrawLine 
End Sub 
 
Sub DrawLine() 
    Dim rpt As Report, lngColor As Long 
    Dim sngTop As Single, sngLeft As Single 
    Dim sngWidth As Single, sngHeight As Single 
 
    Set rpt = Reports!EmployeeReport 
    ' Set scale to pixels. 
    rpt.ScaleMode = 3 
    ' Top inside edge. 
    sngTop = rpt.ScaleTop + 5 
    ' Left inside edge. 
    sngLeft = rpt.ScaleLeft + 5 
    ' Width inside edge. 
    sngWidth = rpt.ScaleWidth - 10 
    ' Height inside edge. 
    sngHeight = rpt.ScaleHeight - 10 
    ' Make color red. 
    lngColor = RGB(255,0,0) 
    ' Draw line as a box. 
    rpt.Line(sngTop, sngLeft) - (sngWidth, sngHeight), lngColor, B 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.