Propriedade Report.CurrentX (Access)
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 ). |
| 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.