Function Report_Anpassen(rpt As Report) As String
Dim dbs As Database
Dim ctl As Control
For Each ctl In rpt.Controls
    'bei Textfeldern
    If ctl.ControlType = acTextBox Then
        ctl.FontName = "Arial"
        ctl.FontSize = 11
    End If
Next ctl
End Function

Private Sub Report_Open(Cancel As Integer)
Report_Anpassen Me
End Sub