Compartilhar via


Propriedade Report.Painting (Access)

Utilize a propriedade Quadro para especificar se um relatório é repintado. Boolean de leitura/gravação.

Sintaxe

expressão. Pintura

expressão Uma variável que representa um objeto Relatório .

Comentários

A propriedade Painting (pintando) é semelhante à ação Eco. No entanto, a propriedade Pintando impede que um único relatório, enquanto a ação Eco impede o redesenho todas as janelas abertas em um aplicativo.

Definir a propriedade Painting (pintando) para um relatório como False também impede que todos os controles (exceto controles sub-relatório) em um relatório seja redesenhado. Para impedir que um controle sub-relatório seja redesenhado, você deve definir a propriedade Pintando sub-relatório como False. (Observe que você defina a propriedade Pintando sub-relatório, não o controle de sub-relatório.)

A propriedade Painting (pintando) é automaticamente definida como True, sempre que o relatório obtém ou perde o foco. Você pode definir essa propriedade ser definida como False, enquanto você estiver trabalhando em um relatório, se não desejar ver as alterações ao relatório ou para seus controles. Por exemplo, se um formulário tiver um conjunto de controlos que são redimensionados automaticamente quando o formulário é redimensionado e não quiser que o utilizador veja cada movimento de controlo individual, pode desativar a funcionalidade Quadro , mover todos os controlos e, em seguida, voltar a ativar a Função de Pintura .

Exemplo

O exemplo a seguir utiliza a propriedade Painting para ativar ou desativar o redesenho do formulário dependendo da variável SetPainting estar definida como True ou False. Se o redesenho de formulário estiver desativado, o Microsoft Access exibe o ícone de ampulheta enquanto Painting (pintando) está desativado.

Public Sub EnablePaint(ByRef frmName As Form, _ 
 ByVal SetPainting As Integer) 
 
 frmName.Painting = SetPainting 
 
 ' Form painting is turned off. 
 If SetPainting = False Then 
 DoCmd.Hourglass True 
 Else 
 DoCmd.Hourglass False 
 End If 
 
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.