Método Report.PSet (Access)

El método PSet establece un punto de un objeto Report en un color especificado cuando se produce el evento Print .

Sintaxis

expresión. PSet (Flags, x, y, Color)

Expresión Variable que representa un objeto Report .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Flags	Obligatorio	Integer	Palabra clave que indica que las coordenadas son relativas a la posición de gráficos actual proporcionada por la configuración de las propiedades CurrentX y CurrentY del argumento Object .
x	Obligatorio	Single	Coordenada horizontal del punto que se va a establecer.
y	Obligatorio	Single	Coordenada vertical del punto que se va a establecer.
Color	Obligatorio	Long	Color RGB (rojo-verde-azul) en el que se va a establecer el punto. Si se omite este argumento, se usa el valor de la propiedad ForeColor. También puede usar la función RGB o QBColor para especificar el color.

Valor devuelto

Nothing

Comentarios

El tamaño del punto depende del valor de la propiedad DrawWidth. Cuando la propiedad DrawWidth se establece en 1, el método PSet establece un solo píxel con el color especificado. Cuando la propiedad DrawWidth es mayor que 1, el punto se centra en las coordenadas especificadas.

La manera en que se dibuja el punto depende de la configuración de las propiedades DrawMode y DrawStyle.

Al aplicar el método PSet, las propiedades CurrentX y CurrentY se establecen en el punto especificado por los argumentos x y y.

Para borrar un único píxel con el método PSet , especifique las coordenadas del píxel y use &HFFFFFF (blanco) como argumento Color .

Ejemplo

El ejemplo siguiente usa el método PSet para dibujar una línea a través del eje horizontal de un informe.

Para probar este ejemplo en Microsoft Access, cree un nuevo informe. Establezca la propiedad AlImprimir (OnPrint) de la sección Detalles a [Procedimiento de evento]. Escriba el código siguiente en el módulo del informe y, a continuación, cambie a Vista previa de impresión.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.