Propriété Report.CurrentX (Access)
Utilisez la propriété CurrentX (avec la propriété CurrentY ) 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. CurrentX
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 ). |
| 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.