Compartir a través de

Propiedad Report.FillColor (Access)

  • Artículo

Utilice la propiedad FillColor para especificar el color que rellena los cuadros y círculos dibujados en los informes con los métodos Line y Circle. También puede usar esta propiedad con Visual Basic para crear efectos visuales especiales en informes personalizados al imprimir mediante una impresora a color o obtener una vista previa de los informes en un monitor de color. Long de lectura y escritura.

Sintaxis

expresión. FillColor

Expresión Variable que representa un objeto Report .

Comentarios

Puede establecer esta propiedad sólo en un procedimiento de evento especificado por la propiedad del evento OnPrint de una sección.

El ejemplo siguiente utiliza el método Circle para dibujar un círculo y crear un sector dentro del círculo. A continuación, usa las propiedades FillColor y FillStyle para colorear el segmento circular en rojo. También dibuja una línea desde la esquina superior izquierda hasta el centro del círculo.

Use las funciones RGB o QBColor para establecer esta propiedad. El valor de la propiedad FillColor tiene un tipo de datos Long.

Ejemplo:

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.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 
 Const conPI = 3.14159265359 
 
 Dim sngHCtr As Single 
 Dim sngVCtr As Single 
 Dim sngRadius As Single 
 Dim sngStart As Single 
 Dim sngEnd As Single 
 
 sngHCtr = Me.ScaleWidth / 2 ' Horizontal center. 
 sngVCtr = Me.ScaleHeight / 2 ' Vertical center. 
 sngRadius = Me.ScaleHeight / 3 ' Circle radius. 
 Me.Circle (sngHCtr, sngVCtr), sngRadius ' Draw circle. 
 sngStart = -0.00000001 ' Start of pie slice. 
 
 sngEnd = -2 * conPI / 3 ' End of pie slice. 
 Me.FillColor = RGB(255, 0, 0) ' Color pie slice red. 
 Me.FillStyle = 0 ' Fill pie slice. 
 
 ' Draw Pie slice within circle 
 Me.Circle (sngHCtr, sngVCtr), sngRadius, , sngStart, sngEnd 
 
 ' Draw line to center of circle. 
 Dim intColor As Integer 
 Dim sngTop As Single, sngLeft As Single 
 Dim sngWidth As Single, sngHeight As Single 
 
 Me.ScaleMode = 3 ' Set scale to pixels. 
 sngTop = Me.ScaleTop ' Top inside edge. 
 sngLeft = Me.ScaleLeft ' Left inside edge. 
 sngWidth = Me.ScaleWidth / 2 ' Width inside edge. 
 sngHeight = Me.ScaleHeight / 2 ' Height inside edge. 
 intColor = RGB(255, 0, 0) ' Make color red. 
 
 ' Draw line. 
 Me.Line (sngTop, sngLeft)-(sngWidth, sngHeight), intColor 
 
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.