Report.FillColor-Eigenschaft (Access)

Sie verwenden die FillColor-Eigenschaft , um die Farbe anzugeben, die in Berichten gezeichnete Felder und Kreise mit den Methoden Line und Circle ausfüllt. Sie können diese Eigenschaft auch mit Visual Basic verwenden, um spezielle visuelle Effekte für benutzerdefinierte Berichte zu erstellen, wenn Sie einen Farbdrucker verwenden oder eine Vorschau der Berichte auf einem Farbmonitor anzeigen. Long mit Lese-/Schreibzugriff.

Syntax

Ausdruck. Fillcolor

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

HinwBemerkungeneise

Sie können diese Eigenschaft nur in einer Ereignisprozedur festlegen, die durch die OnPrint-Ereigniseigenschaft eines Abschnitts angegeben wird.

Das folgende Beispiel verwendet die CircleCircle-Methode, um einen Kreis zu zeichnen und im Kreis einen Kreissektor zu erstellen. Anschließend werden die Eigenschaften FillColor und FillStyle verwendet, um das Kreissegment rot einzufärben. Außerdem wird eine Linie von links oben zur Mitte des Kreises gezeichnet.

Verwenden Sie die Funktionen RGB oder QBColor , um diese Eigenschaft festzulegen. Die Einstellung der FillColorFillColor-Eigenschaft hat den Datentyp LongLong.

Beispiel

Zum Testen dieses Beispiels in Microsoft Access erstellen Sie einen neuen Bericht. Legen Sie die OnPrintOnPrint-Eigenschaft des Detailbereichs auf [Ereignisprozedur] fest. Geben Sie den folgenden Code in das Modul des Berichts ein, und wechseln Sie dann zur Seitenansicht.

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 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.