Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Mit der FillColor-Eigenschaft können Sie die Farbe angeben, mit der Felder und Kreise ausgefüllt werden, die in Berichten mit den Methoden "Line" und "Circle" gezeichnet werden. Sie können diese Eigenschaft auch mit Visual Basic verwenden, um spezielle visuelle Effekte für benutzerdefinierte Berichte zu erstellen, wenn Sie mithilfe eines Farbdruckers drucken oder die Berichte in der Vorschau auf einem Farbmonitor anzeigen. Long mit Lese-/Schreibzugriff.
Syntax
Ausdruck verwendet werden. FillColor
Ausdruck Eine Variable, die ein Report-Objekt darstellt.
Hinweise
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 oben links zur Mitte des Kreises gezogen.
Verwenden Sie die RGB- oder QBColor-Funktionen , 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 Berichtsmodul ein, und wechseln Sie dann in die 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.