Report. PSet-Methode (Access)Report.PSet method (Access)

Mit der PSet -Methode wird ein Punkt auf einem Report -Objekt auf eine angegebene Farbe festgelegt, wenn das Print -Ereignis auftritt.The PSet method sets a point on a Report object to a specified color when the Print event occurs.

SyntaxSyntax

Ausdruck. PSet (Flags, x, y, Farbe)expression.PSet (Flags, x, y, Color)

Ausdruck Eine Variable, die ein Report -Objekt darstellt.expression A variable that represents a Report object.

ParameterParameters

NameName Erforderlich/OptionalRequired/Optional DatentypData type BeschreibungDescription
FlagsFlags ErforderlichRequired IntegerInteger Ein Schlüsselwort, das angibt, dass die Koordinaten relativ zur aktuellen Grafikposition sind, die von den Einstellungen für die Eigenschaften CurrentX und CurrentY des Object -Arguments angegeben wird.A keyword that indicates that the coordinates are relative to the current graphics position given by the settings for the CurrentX and CurrentY properties of the Object argument.
xx ErforderlichRequired SingleSingle Die horizontale Koordinate des festzulegenden Punkts.The horizontal coordinate of the point to set.
yy ErforderlichRequired SingleSingle Die vertikale Koordinate des festzulegenden Punkts.The vertical coordinate of the point to set.
ColorColor ErforderlichRequired LongLong Die RGB-Farbe (rot-grün-blau), auf die der Punkt festgelegt werden soll.The RGB (red-green-blue) color to set the point to. Wird dieses Argument nicht angegeben, so wird der Wert der ForeColor -Eigenschaft verwendet.If this argument is omitted, the value of the ForeColor property is used. Sie können für die Farbangabe auch die RGB -Funktion oder die QBColor -Funktion verwenden.You can also use the RGB function or QBColor function to specify the color.

RückgabewertReturn value

NichtsNothing

BemerkungenRemarks

Die Größe des Punkts hängt von der Einstellung der DrawWidth -Eigenschaft ab.The size of the point depends on the DrawWidth property setting. Wenn die DrawWidth-Eigenschaft auf 1 festgelegt ist, wird durch die PSet-Methode ein einzelnes Pixel auf die angegebene Farbe festgelegt.When the DrawWidth property is set to 1, the PSet method sets a single pixel to the specified color. Ist der Wert der DrawWidth-Eigenschaft größer als 1, wird der Punkt auf den angegebenen Koordinaten zentriert.When the DrawWidth property is greater than 1, the point is centered on the specified coordinates.

Die Art und Weise, wie der Punkt gezeichnet wird, hängt von den Einstellungen der Eigenschaften DrawMode und DrawStyle ab.The way the point is drawn depends on the settings of the DrawMode and DrawStyle properties.

Wenn Sie die PSet-Methode anwenden, werden die Eigenschaften CurrentX und CurrentY auf die Punktkoordinaten festgelegt, die durch die Argumente x und y bestimmt sind.When you apply the PSet method, the CurrentX and CurrentY properties are set to the point specified by the x and y arguments.

Zum Löschen eines einzelnen Pixels mit der PSet -Methode geben Sie die Koordinaten des Pixels an und verwenden &HFFFFFF (weiß) als Color -Argument.To clear a single pixel with the PSet method, specify the coordinates of the pixel and use &HFFFFFF (white) as the Color argument.

BeispielExample

Im folgenden Beispiel wird die PSet-Methode zum Zeichnen einer Linie entlang der horizontalen Achse eines Berichts verwendet.The following example uses the PSet method to draw a line through the horizontal axis of a report.

Zum Testen dieses Beispiels in Microsoft Access erstellen Sie einen neuen Bericht.To try this example in Microsoft Access, create a new report. Legen Sie die OnPrintOnPrint-Eigenschaft des Detailbereichs auf [Ereignisprozedur] fest.Set the OnPrint property of the Detail section to [Event Procedure]. Geben Sie den folgenden Code in das Modul des Berichts ein, und wechseln Sie dann zur Seitenansicht.Enter the following code in the report's module, and then switch to Print Preview.

Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 Dim sngMidPt As Single, intI As Integer 
 ' Set scale to pixels. 
 Me.ScaleMode = 3 
 ' Calculate midpoint. 
 sngMidPt = Me.ScaleHeight / 2 
 ' Loop to draw line down horizontal axis pixel by pixel. 
 For intI = 1 To Me.ScaleWidth 
 Me.PSet(intI, sngMidPt) 
 Next intI 
End Sub

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.