Método Reports.Copy (Project)

Copia un informe personalizado y crea un nuevo informe con el mismo contenido.

Sintaxis

expresión. Copiar (Source, NewName)

Expresión Variable que representa un objeto "Reports".

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Source	Obligatorio	Variant	Nombre o objeto Report del informe que se va a copiar.
Newname	Obligatorio	String	Nombre del nuevo informe.
Source	Obligatorio	Variant
Newname	Obligatorio	String

Valor devuelto

Report

Nuevo informe.

Ejemplo:

La macro CopyAReport comprueba si existe el informe especificado que se va a copiar y comprueba si el nuevo informe ya existe. A continuación, la macro usa una de las variantes del parámetro Source para crear una copia del informe y, a continuación, muestra el nuevo informe.

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

Consulte también

Objeto de informede objeto Reports

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.