Método Reports.Copy (Project)

Artigo
04/07/2023

Copia um relatório personalizado e cria um novo relatório com o mesmo conteúdo.

Sintaxe

expressão. Copiar (Fonte, NewName)

Expressão Uma variável que representa um objeto 'Reports'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Source	Obrigatório	Variantes	Nome ou objeto Relatório do relatório a ser copiado.
Newname	Obrigatório	String	Nome do novo relatório.
Fonte	Obrigatório	Variantes
Newname	Obrigatório	String

Valor de retorno

Report

O novo relatório.

Exemplo

A macro CopyAReport verifica se o relatório especificado para copiar existe e verifica se o novo relatório já existe. Em seguida, a macro usa uma das variantes do parâmetro Source para criar uma cópia do relatório e, em seguida, exibe o novo relatório.

Sub CopyAReport()
    Dim reportName As String
    Dim newReportName As String
    Dim newExists As Boolean
    Dim oldExists As Boolean
    Dim report2Copy As Report
    Dim newReport As Report
    
    reportName = "Table Tests"
    newReportName = "New Table Tests"
    oldExists = ActiveProject.Reports.IsPresent(reportName)
    newExists = ActiveProject.Reports.IsPresent(newReportName)
    
    Debug.Print "oldExists " & CStr(oldExists) & "; newExists " & newExists
    
    If oldExists And Not newExists Then
        Set report2Copy = ActiveProject.Reports(reportName)
        
        ' Use either of the following two statements.
        'Set newReport = ActiveProject.Reports.Copy(report2Copy, newReportName)
        Set newReport = ActiveProject.Reports.Copy(reportName, newReportName)
       
        newReport.Apply
    End If
    
    If (oldExists = False) Then
         MsgBox Prompt:="The requested report to copy, '" & reportName _
            & "', does not exist.", Title:="Report copy error"
    ElseIf newExists Then
        MsgBox Prompt:="The new report '" & newReportName _
            & "' already exists.", Title:="Report copy error"
    Else
        MsgBox Prompt:="The new report '" & newReportName & "'" _
            & vbCrLf & "is copied from '" & reportName & "'.", _
            Title:="Report copy success"
    End If
End Sub

Confira também

Objeto Relatório de Objeto de Relatórios

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.

Partilhar via