Méthode Report.PSet (Access)

La méthode PSet définit un point sur un objet Report sur une couleur spécifiée lorsque l’événement Print se produit.

Syntaxe

expression. PSet (indicateurs, x, y, couleur)

Expression Variable qui représente un objet Report .

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Flags	Obligatoire	Integer	Mot clé qui indique que les coordonnées sont relatives à la position graphique actuelle donnée par les paramètres des propriétés CurrentX et CurrentY de l’argument Object.
x	Obligatoire	Réel simple	The horizontal coordinate of the point to set.
y	Obligatoire	Réel simple	Coordonnée verticale du point à définir.
Color	Obligatoire	Long	Couleur RVB (rouge-vert-bleu) sur laquelle définir le point. Si cet argument est omis, la valeur de la propriété ForeColor est utilisée. Vous pouvez également utiliser la fonction RGB ou QBColor pour spécifier la couleur.

Valeur renvoyée

Aucune

Remarques

La taille du point dépend de la valeur de la propriété DrawWidth. Lorsque la propriété DrawWidth est définie sur 1, la méthode PSet attribue un seul pixel avec la couleur spécifiée. Lorsque la propriété DrawWidth est supérieure à 1, le point est centré en fonction des coordonnées spécifiées.

La manière dont le point est dessiné dépend des paramètres des propriétés DrawMode et DrawStyle.

Lorsque vous appliquez la méthode PSet, les propriétés CurrentX et CurrentY sont définies au point spécifié par les arguments x et y.

Pour effacer un seul pixel avec la méthode PSet , spécifiez les coordonnées du pixel et utilisez &HFFFFFFFF (blanc) comme argument Color .

Exemple

L'exemple suivant utilise la méthode PSet trace une ligne par le biais de l'axe horizontal d'un état.

Pour appliquer cet exemple dans Microsoft Access, créez un nouvel état. Définissez la propriété OnPrint de la section Détail sur [Event Procedure]. Entrez le code suivant dans le module du rapport, puis basculez vers Aperçu avant impression.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.