basBerichtAnzeigen (Bericht maximiert anzeigen)

Function BerichtPassendMaximiert(strReport As String)
Dim R As Report

Application.Echo False
On Error Resume Next
DoCmd.OpenReport strReport, acViewPreview
If Err <> 0 Then
Application.Echo True
Beep
MsgBox „Bericht/Auswertung »“ & strReport & „« nicht gefunden…“, vbOKOnly + vbExclamation, „BerichtPassendMaximiert():“
Exit Function
End If
DoCmd.Maximize
Set R = Reports(strReport)
R.ZoomControl = 0 ‚Passend…
Application.Echo True

End Function