Método Report.PSet (Access)
O método PSet define um ponto em um objeto Report como uma cor especificada quando o evento Print ocorre.
Sintaxe
expressão. PSet (Flags, x, y, Color)
Expressão Uma variável que representa um objeto Report .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Flags | Obrigatório | Integer | Um palavra-chave que indica que as coordenadas são relativas à posição gráfica atual fornecida pelas configurações das propriedades CurrentX e CurrentY do argumento Object. |
| x | Obrigatório | Single | A coordenada horizontal do ponto a ser definido. |
| y | Obrigatório | Single | A coordenada vertical do ponto a ser definido. |
| Color | Obrigatório | Long | A cor RGB (vermelho-verde-azul) para definir o ponto. Se esse argumento for omitido, o valor da propriedade ForeColor é usado. Você também pode usar a função RGB ou QBColor função para especificar a cor. |
Valor de retorno
Nada
Comentários
O tamanho do ponto depende da definição da propriedade DrawWidth. Quando a propriedade DrawWidth é definida como 1, o método PSet define um único pixel com a cor especificada. Quando a propriedade DrawWidth for maior que 1, o ponto é centralizado nas coordenadas especificadas.
A maneira como o ponto é desenhado depende as configurações das propriedades DrawMode e DrawStyle.
Quando você aplica o método PSet, as propriedades CurrentX e CurrentY são definidas como o ponto especificado pelos argumentos x e y.
Para limpar um único pixel com o método PSet , especifique as coordenadas do pixel e use &HFFFFFF (branco) como o argumento Cor .
Exemplo
O exemplo a seguir usa o método PSet para desenhar uma linha ao longo do eixo horizontal de um relatório.
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.
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
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.