Function AbreReporteConZoom(NombreReporte As String, Optional PorcentajeZooM As Long)
    
    On Error GoTo ControlErrrores
    'Controlamos el parametro pasado del Zoom
    If IsNull(PorcentajeZooM) = True Then
     PorcentajeZooM = 100 ' ponemos al 100 % por defecto
    End If
    'Ahora limitamos entre numeros positivos y 1000
    'En Access XP, el limte esta establecido es 1000
    'así que ten cuidado a la hora de meter valores y no sé para access 2000
    If PorcentajeZooM < 0 Or PorcentajeZooM > 1000 Then
     MsgBox "Valores no permitidos del Zoom", vbCritical + vbOKOnly, "AVISO"
     Exit Function
    End If
    'Abrimos el reporte
    DoCmd.OpenReport NombreReporte, acViewPreview
    DoCmd.Maximize
    'Ahora utilizamos la coleccion Reports para especificar el Zoom
    'Es curioso porque el metodo ZoomControl está indocumentado en la ayuda
    'de Access, pero funcionar, funciona
    Reports(NombreReporte).ZoomControl = PorcentajeZooM
    Exit Function
ControlErrrores:
    MsgBox "Se ha producido el error : " & Err.Number & " a la hora de abrir el reporte.", vbCritical, "AVISO"
    'me cepillo el error
    Resume Next
End Function

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)