Report.FillColor property (Access)
You use the FillColor property to specify the color that fills in boxes and circles drawn on reports with the Line and Circle methods. You can also use this property with Visual Basic to create special visual effects on custom reports when you print by using a color printer or preview the reports on a color monitor. Read/write Long.
expression A variable that represents a Report object.
You can set this property only in an event procedure specified by a section's OnPrint event property.
The following example uses the Circle method to draw a circle and create a pie slice within the circle. It then uses the FillColor and FillStyle properties to color the pie slice red. It also draws a line from the upper-left to the center of the circle.
You can use the RGB or QBColor functions to set this property. The FillColor property setting has a data type of Long.
To try this example in Microsoft Access, create a new report. Set the OnPrint property of the Detail section to [Event Procedure]. Enter the following code in the report's module, and then switch to Print Preview.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.