Function CopiaObjeto(NombreReporte As String)
    ' Francisco García Aguado Febrero de 2002
    ' Esta rutina copia cualquier objeto de esta MDB a otra
    ' En este caso un reporte
    Dim BaseDestino As String
    BaseDestino = "C:\Carpeta\Destino.Mdb"
    DoCmd.SetWarnings False
    DoCmd.CopyObject BaseDestino, "", acReport, NombreReporte
    DoCmd.SetWarnings True 'quito mensajes
End Function