Propriété Report.CurrentY (Access)

Article
04/07/2023

Utilisez la propriété CurrentY (avec la propriété CurrentX ) pour spécifier les coordonnées horizontales et verticales de la position de départ de la méthode d’impression et de dessin suivante sur un état. String en lecture/écriture.

Syntaxe

expression. CurrentY

Expression Variable qui représente un objet Report .

Remarques

Vous pouvez, par exemple, utiliser ces propriétés pour déterminer le centre d'un cercle à dessiner sur une section d'état.

Les coordonnées sont mesurées à partir du coin supérieur gauche de la section d'état qui contient une référence à la propriété CurrentX ou CurrentY. La valeur de la propriété CurrentX correspond au bord gauche de la section et le paramètre de la propriété CurrentY est 0 au bord supérieur.

Vous pouvez définir les propriétés CurrentX et CurrentY dans une procédure événementielle spécifiée par le paramètre de propriété OnPrint d'une section d'état.

Utilisez la propriété ScaleMode pour définir l'unité de mesure, telles que des points, en pixels, caractères, pouces, millimètres ou en centimètres, qui seront basées sur les coordonnées.

Lorsque vous utilisez les méthodes graphiques ci-après, les paramètres des propriétés CurrentX et CurrentY sont modifiés comme suit :

Méthode	Définit XCourant, YCourant en tant que
Circle	Centre de l'objet.
Line	Point de fin de la ligne (coordonnées x2, y2 ).
Print	Position suivante de l'impression.

Exemple

L’exemple suivant utilise la méthode Print pour afficher du texte sur un rapport nommé Report1. Il utilise les méthodes TextWidth et TextHeight Centre le texte verticalement et horizontalement.

Private Sub Detail_Format(Cancel As Integer, _ 
 FormatCount As Integer) 
 Dim rpt as Report 
 Dim strMessage As String 
 Dim intHorSize As Integer, intVerSize As Integer 
 
 Set rpt = Me 
 strMessage = "DisplayMessage" 
 With rpt 
 'Set scale to pixels, and set FontName and 
 'FontSize properties. 
 .ScaleMode = 3 
 .FontName = "Courier" 
 .FontSize = 24 
 End With 
 ' Horizontal width. 
 intHorSize = Rpt.TextWidth(strMessage) 
 ' Vertical height. 
 intVerSize = Rpt.TextHeight(strMessage) 
 ' Calculate location of text to be displayed. 
 Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2) 
 Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2) 
 ' Print text on Report object. 
 Rpt.Print strMessage 
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.

Share via