Propriedade Report.FillColor (Access)

Você pode usar a propriedade FillColor para especificar a cor que preenche caixas e círculos desenhados em relatórios com os métodos de linha e de círculo. Você também pode usar essa propriedade com o Visual Basic para criar efeitos visuais especiais em relatórios personalizados ao imprimir usando uma impressora colorida ou visualizar os relatórios em um monitor de cores. Long de leitura/gravação.

Sintaxe

expressão. Fillcolor

Expressão Uma variável que representa um objeto Report .

Comentários

Você pode definir essa propriedade somente em um procedimento de evento especificado pela propriedade de evento OnPrint de uma seção.

O exemplo a seguir usa o método Circle para desenhar um círculo e criar uma fatia de pizza dentro do círculo. Em seguida, ele usa as propriedades FillColor e FillStyle para colorir a fatia de torta vermelha. Ele também desenha uma linha do canto superior esquerdo para o centro do círculo.

Use as funções RGB ou QBColor para definir essa propriedade. A configuração da propriedade FillColor tem um tipo de dados Long.

Exemplo

Para testar esse exemplo no Microsoft Access, crie um novo relatório. Defina a propriedade OnPrint da seção Detalhes como [Procedimento do Evento]. Insira o código a seguir no módulo do relatório e, em seguida, alterne para Visualização de Impressão.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.