Report.CurrentY-Eigenschaft (Access)

  • Artikel

Verwenden Sie die CurrentY-Eigenschaft (zusammen mit der CurrentX-Eigenschaft ), um die horizontalen und vertikalen Koordinaten für die Startposition der nächsten Druck- und Zeichnungsmethode für einen Bericht anzugeben. Wert vom Typ Single mit Lese-/Schreibzugriff.

Syntax

Ausdruck. CurrentY

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

HinwBemerkungeneise

Sie können mit diesen Eigenschaften z. B. feststellen, wo sich der Kreismittelpunkt in einem Berichtsbereich befindet.

Die Koordinaten werden über die obere linke Ecke des Berichtsabschnitts gemessen, der den Verweis auf die CurrentX - oder CurrentY-Eigenschaft enthält. Die Einstellung der CurrentX-Eigenschaft ist am linken Rand des Abschnitts 0, und die CurrentY-Eigenschaftseinstellung ist am oberen Rand 0.

Sie können die Eigenschaften CurrentX und CurrentY in einer Ereignisprozedur festlegen, die durch die Einstellung der OnPrint-Eigenschaft eines Berichtsabschnitts angegeben wird.

Verwenden Sie die ScaleMode-Eigenschaft , um die Maßeinheit zu definieren, z. B. Punkte, Pixel, Zeichen, Zoll, Millimeter oder Zentimeter, auf der die Koordinaten basieren.

Wenn Sie die folgenden Grafikmethoden verwenden, werden die Einstellungen für CurrentX und CurrentY folgendermaßen geändert:

Methode Wert für CurrentX und CurrentY
Kreis Mittelpunkt des Objekts.
Zeile Endpunkt der Linie (die Koordinaten x2 und y2).
Drucken Nächste Druckposition.

Beispiel

Im folgenden Beispiel wird die Print-Methode verwendet, um Text in einem Bericht mit dem Namen Report1 anzuzeigen. Mit den Methoden TextWidth und TextHeight wird der Text vertikal und horizontal zentriert.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.