Поделиться через

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

  • Статья

Свойство FillColor используется для указания цвета, который заполняет поля и круги, нарисованные в отчетах с помощью методов Line и Circle . Это свойство также можно использовать в Visual Basic для создания специальных визуальных эффектов для пользовательских отчетов при печати с помощью цветного принтера или предварительного просмотра отчетов на цветном мониторе. Для чтения и записи, Long.

Синтаксис

expression. Fillcolor

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

Замечания

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

В следующем примере метод Circle используется для рисования круга и создания кругового среза внутри круга. Затем он использует свойства FillColor и FillStyle для цвета кругового среза в красный цвет. Он также рисует линию от левого верхнего угла до центра круга.

Используйте функции RGB или QBColor , чтобы задать это свойство. Параметр свойства FillColor имеет тип данных Long.

Пример

Чтобы попробовать этот пример в Microsoft Access, создайте новый отчет. Задайте для свойства OnPrint раздела Подробности значение [Процедура события]. Введите следующий код в модуль отчета, а затем переключитесь на предварительный просмотр.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 
 Const conPI = 3.14159265359 
 
 Dim sngHCtr As Single 
 Dim sngVCtr As Single 
 Dim sngRadius As Single 
 Dim sngStart As Single 
 Dim sngEnd As Single 
 
 sngHCtr = Me.ScaleWidth / 2 ' Horizontal center. 
 sngVCtr = Me.ScaleHeight / 2 ' Vertical center. 
 sngRadius = Me.ScaleHeight / 3 ' Circle radius. 
 Me.Circle (sngHCtr, sngVCtr), sngRadius ' Draw circle. 
 sngStart = -0.00000001 ' Start of pie slice. 
 
 sngEnd = -2 * conPI / 3 ' End of pie slice. 
 Me.FillColor = RGB(255, 0, 0) ' Color pie slice red. 
 Me.FillStyle = 0 ' Fill pie slice. 
 
 ' Draw Pie slice within circle 
 Me.Circle (sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd 
 
 ' Draw line to center of circle. 
 Dim intColor As Integer 
 Dim sngTop As Single, sngLeft As Single 
 Dim sngWidth As Single, sngHeight As Single 
 
 Me.ScaleMode = 3 ' Set scale to pixels. 
 sngTop = Me.ScaleTop ' Top inside edge. 
 sngLeft = Me.ScaleLeft ' Left inside edge. 
 sngWidth = Me.ScaleWidth / 2 ' Width inside edge. 
 sngHeight = Me.ScaleHeight / 2 ' Height inside edge. 
 intColor = RGB(255, 0, 0) ' Make color red. 
 
 ' Draw line. 
 Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), intColor 
 
End Sub

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

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