Método Application.ZoomReport (Project)

Amplia (aumenta ou diminui) o relatório ativo para a percentagem especificada do respetivo tamanho original.

Sintaxe

expression. ZoomReport (Percentagem,Inteiro)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Valor de retorno

Boolean

Comentários

O parâmetro Percentagem pode ter um valor de 10 a 400. Se o valor estiver fora desse intervalo, o método ZoomReport mostra um erro de tempo de execução 1101, "O valor do argumento não é válido".

O método ZoomReport pode ser aplicado a relatórios personalizados e a relatórios incorporados, como Descrição Geral do Projeto. Quando altera o tamanho do relatório, muda para outra vista e, em seguida, regressa ao relatório anterior, o nível de zoom permanece em vigor. Para restaurar o tamanho original, utilize o seguinte comando: ZoomReport 100.

Exemplo

O exemplo seguinte verifica se existe um relatório; Se for o caso, o exemplo apresenta o relatório e, em seguida, amplia o relatório para 80% do tamanho original.

Sub ReportZoom()
    Dim reportName As String
    reportName = "Report 1"
    
    If ActiveProject.Reports.IsPresent(reportName) Then
        ApplyReport reportName
        ZoomReport 80
    Else
        MsgBox Prompt:="No custom report name: " & reportName, Title:="Report apply error"
    End If
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.