Propriedade Report.ScaleTop (Access)
Use a propriedade ScaleTop para especificar as unidades para as coordenadas verticais que descrevem o local da borda superior de uma página quando o método Circle, Line, Pset ou Print é usado enquanto um relatório é impresso ou visualizado ou sua saída é salva em um arquivo. Somente leitura/gravação.
Sintaxe
expressão. Scaletop
Expressão Uma variável que representa um objeto Report .
Comentários
Você pode definir a propriedade ScaleTop usando uma macro ou um procedimento de evento do Visual Basic especificado pela configuração da propriedade OnPrint de uma seção.
Usando essas propriedades e as propriedades ScaleHeight e ScaleWidth relacionadas, você pode configurar um sistema de coordenadas personalizado com coordenadas positivas e negativas. Todos os quatro dessas propriedades de escala interagem com a propriedade ScaleMode das seguintes maneiras:
Configuração qualquer outra propriedade Scale para qualquer valor define automaticamente a propriedade ScaleMode como 0.
A configuração da propriedade ScaleMode para um número maior que 0 altera as configurações de propriedade ScaleHeight e ScaleWidth para a nova unidade de medida e define as propriedades ScaleLeft e ScaleTop como 0. Além disso, as configurações das propriedades CurrentX e CurrentY alterar para refletir as novas coordenadas do ponto atual.
Você também pode usar o método Scale para definir as Propriedades ScaleHeight, ScaleWidth, ScaleLeft e ScaleTop propriedades em uma instrução.
Observação
[!OBSERVAçãO] A propriedade ScaleTop não é igual a propriedade Top.
Exemplo
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.
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.