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.