Propriedade Superior

Aplica-se a

Pode utilizar a propriedade Superior para especificar a localização de um objeto num formulário ou relatório. O número inteiro de leitura/escrita em todos os objetos na lista Aplica-se a, exceto o objeto Report, que é só de leitura.

expressão Obrigatório. A expressão devolve um dos objetos acima.

Observações

A localização de um controlo é a distância do limite esquerdo ou superior do mesmo até à margem esquerda ou superior da secção que contém o controlo. Definir a propriedade Superior para 0 coloca a margem do controlo na parte superior da secção. Para utilizar uma unidade de medida diferente da definição na caixa de diálogo Opções Regionais no Painel de Controlo do Windows, especifique a unidade, tal como cm ou pol (por exemplo, 3 cm ou 2 pol).

No Visual Basic, utilize uma expressão numérica para definir o valor desta propriedade. Os valores são expressos em twips.

Para controlos, pode definir esta propriedade com a folha de propriedades de um controlo, uma macro ou código VBA (Visual Basic for Applications).

Quando move um controlo, a nova definição da propriedade Superior é introduzida automaticamente na folha de propriedades. Quando vê um formulário ou relatório na vista Pré-visualizar ou quando imprime um formulário, a localização de um controlo é determinada pela definição da propriedade Superior juntamente com as definições de margem do relatório, disponíveis ao clicar em Margens no separador Esquema de Página.

Para relatórios, a definição da propriedade Superior é o valor de desvio da secção atual a partir da parte superior da página. A definição desta propriedade é expressa em twips. Pode utilizar esta propriedade para especificar onde pretende que a secção seja impressa na página no procedimento de evento Format da secção.

Exemplo

O seguinte exemplo verifica a definição da propriedade Superior do relatório atual. Se o valor for menor do que a definição de margem mínima, as propriedades PróximoRegisto e ImprimirSecção são definidas como False. A secção não avança para o próximo registo e a próxima secção não é impressa.

Sub Detail1_Format(Cancel As Integer, _
    FormatCount As Integer)
Const conTopMargin = 1880
' Don't advance to next record or print next section
' if Top property setting is less than 1880 twips.
    If Me.Top < conTopMargin Then
        Me.NextRecord = False
        Me.PrintSection = False
    End If
End Sub