Compartilhar via

Método Report.Scale (Access)

  • Artigo

O método Scale define o sistema de coordenadas para um objeto Report.

Sintaxe

expressão. Escala (Sinalizadores, x1, y1, x2, y2)

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
x1 Obrigatório Single Um valor para a coordenada horizontal que define a posição do canto superior esquerdo do objeto.
y1 Obrigatório Single Um valor para a coordenada vertical que define a posição do canto superior esquerdo do objeto.
x2 Obrigatório Single Um valor para a coordenada horizontal que define a posição do canto inferior direito do objeto.
y2 Obrigatório Single Um valor para a coordenada vertical que define a posição do canto inferior direito do objeto.

Valor de retorno

Nada

Comentários

Use esse método apenas em um procedimento de evento ou em uma macro especificada pela propriedade de evento OnPrint ou OnFormat para uma seção de relatório ou na propriedade de evento OnPage para um relatório.

Use o método Scale para redefinir o sistema de coordenadas para qualquer escala escolhida. O uso do método Scale sem argumentos redefine o sistema de coordenadas para twips. O método Scale afeta o sistema de coordenadas para o método Print e os métodos gráficos de relatório, que incluem os métodos Circle, linha e PSet.

Exemplo

O exemplo a seguir desenha um círculo com uma escala e usa o método Scale para alterar a escala e desenhar outro círculo com a nova escala.

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer) 
 DrawCircle 
End Sub 
 
Sub DrawCircle() 
 Dim sngHCtr As Single, sngVCtr As Single 
 Dim sngNewH As Single, sngNewV As Single 
 Dim sngRadius As Single 
 
 Me.ScaleMode = 3 ' Set scale to pixels. 
 sngHCtr = Me.ScaleWidth / 2 ' Horizontal center. 
 sngVCtr = Me.ScaleHeight / 2 ' Vertical center. 
 sngRadius = Me.ScaleHeight / 3 ' Circle radius. 
 ' Draw circle. 
 Me.Circle (sngHCtr, sngVCtr), sngRadius 
 ' New horizontal scale. 
 sngNewH = Me.ScaleWidth * 0.9 
 ' New vertical scale. 
 sngNewV = Me.ScaleHeight * 0.9 
 ' Change to new scale. 
 Me.Scale(0, 0)-(sngNewH, sngNewV) 
 ' Draw circle. 
 Me.Circle (sngHCtr + 100, sngVCtr), sngRadius, RGB(0, 256, 0) 
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.