Report.PSet-Methode (Access)

Artikel
04/07/2023

Die PSet-Methode legt einen Punkt auf einem Report-Objekt auf eine angegebene Farbe fest, wenn das Print-Ereignis auftritt.

Syntax

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

Ausdruck Eine Variable, die ein Report-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Flags	Erforderlich	Integer	Ein Schlüsselwort (keyword), der angibt, dass die Koordinaten relativ zur aktuellen Grafikposition sind, die von den Einstellungen für die Eigenschaften CurrentX und CurrentY des Arguments Object angegeben wird.
x	Erforderlich	Single	Die horizontale Koordinate des festzulegenden Punkts.
y	Erforderlich	Single	Die vertikale Koordinate des festzulegenden Punkts.
Color	Erforderlich	Long	Die RGB-Farbe (Rot-Grün-Blau), auf die der Punkt festgelegt werden soll. Wird dieses Argument nicht angegeben, so wird der Wert der ForeColor -Eigenschaft verwendet. Sie können für die Farbangabe auch die RGB -Funktion oder die QBColor -Funktion verwenden.

Rückgabewert

Nichts

Bemerkungen

Die Größe des Punkts hängt von der Einstellung der DrawWidth-Eigenschaft ab. Wenn die DrawWidth-Eigenschaft auf 1 festgelegt ist, wird durch die PSet-Methode ein einzelnes Pixel auf die angegebene Farbe festgelegt. Ist der Wert der DrawWidth-Eigenschaft größer als 1, wird der Punkt auf den angegebenen Koordinaten zentriert.

Die Art und Weise, wie der Punkt gezeichnet wird, hängt von den Einstellungen der Eigenschaften DrawMode und DrawStyle ab.

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.

Um ein einzelnes Pixel mit der PSet-Methode zu löschen, geben Sie die Koordinaten des Pixels an, und verwenden Sie &HFFFFFFFF (weiß) als Color-Argument .

Beispiel

Im folgenden Beispiel wird die PSet-Methode zum Zeichnen einer Linie entlang der horizontalen Achse eines Berichts verwendet.

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.

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