Propriedade Report.CurrentX (Access)

  • Artigo

Use a propriedade CurrentX (juntamente com a propriedade CurrentY ) para especificar as coordenadas horizontais e verticais para a posição inicial do próximo método de impressão e desenho em um relatório. Somente leitura/gravação.

Sintaxe

expressão. Currentx

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

Comentários

Você pode, por exemplo, utilizar essas propriedades para determinar onde o ponto central de um círculo será desenhado em uma seção de relatório.

As coordenadas são medidas do canto superior esquerdo da seção de relatório que contém a referência à propriedade CurrentX ou CurrentY. A configuração da propriedade CurrentX é 0 na extremidade esquerda da seção e a configuração da propriedade CurrentY é 0 em sua extremidade superior.

Você pode definir as propriedades CurrentX e CurrentY em um procedimento de evento especificado pela configuração da propriedade OnPrint de uma seção de relatório.

Use a propriedade ScaleMode para definir a unidade de medida, como pontos, pixels, caracteres, polegadas, milímetros ou centímetros, nas quais as coordenadas serão baseadas no.

Quando você usa os métodos gráficos a seguir, as configurações de propriedade CurrentX e CurrentY são alteradas, conforme indicado.

Método Define as propriedades CurrentX e CurrentY como
Circle O centro do objeto.
Line O ponto final da linha (as coordenadas x2, y2 ).
Print A próxima posição de impressão.

Exemplo

O exemplo a seguir usa o método Print para exibir texto em um relatório chamado Report1. Ele usa os métodos TextHeight e de TextWidth para centralizar o texto vertical e horizontalmente.

Private Sub Detail_Format(Cancel As Integer, _ 
 FormatCount As Integer) 
 Dim rpt as Report 
 Dim strMessage As String 
 Dim intHorSize As Integer, intVerSize As Integer 
 
 Set rpt = Me 
 strMessage = "DisplayMessage" 
 With rpt 
 'Set scale to pixels, and set FontName and 
 'FontSize properties. 
 .ScaleMode = 3 
 .FontName = "Courier" 
 .FontSize = 24 
 End With 
 ' Horizontal width. 
 intHorSize = Rpt.TextWidth(strMessage) 
 ' Vertical height. 
 intVerSize = Rpt.TextHeight(strMessage) 
 ' Calculate location of text to be displayed. 
 Rpt.CurrentX = (Rpt.ScaleWidth/2) - (intHorSize/2) 
 Rpt.CurrentY = (Rpt.ScaleHeight/2) - (intVerSize/2) 
 ' Print text on Report object. 
 Rpt.Print strMessage 
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.