Свойство Report.CurrentX (Access)

Используйте свойство CurrentX (вместе со свойством CurrentY ), чтобы указать горизонтальные и вертикальные координаты для начальной позиции следующего метода печати и рисования в отчете. Для чтения и записи, Single.

Синтаксис

expression. CurrentX

Выражение Переменная, представляющая объект Report .

Замечания

Например, эти свойства можно использовать, чтобы определить, где центральная точка круга рисуется в разделе отчета.

Координаты измеряются из левого верхнего угла раздела отчета, содержащего ссылку на свойство CurrentX или CurrentY . Параметр свойства CurrentX имеет значение 0 на левом крае раздела, а параметр свойства CurrentY — 0 в верхнем крае.

Свойства CurrentX и CurrentY можно задать в процедуре события, заданной параметром свойства OnPrint раздела отчета.

Используйте свойство ScaleMode , чтобы определить единицу измерения, например точки, пиксели, символы, дюймы, миллиметры или сантиметры, на которую будут основываться координаты.

При использовании следующих графических методов параметры свойств CurrentX и CurrentY изменяются, как указано.

Метод	Задает свойства CurrentX, CurrentY значение
Круг	Центр объекта .
Line	Конечная точка линии (координаты x2, y2 ).
Печать	Следующая позиция печати.

Пример

В следующем примере используется метод Print для отображения текста в отчете с именем Report1. Он использует методы TextWidth и TextHeight для центрирования текста по вертикали и горизонтали.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.