Function Change_Report_Style()
Dim db As Database, doc As Document, ctl As Control
On Error GoTo Err_Change_Report_Style
Set db = CurrentDb
For Each doc In db.Containers("reports").Documents
    DoCmd.OpenReport doc.Name, acViewDesign
    For Each ctl In Reports(doc.Name).Controls
        If ctl.ControlType = acTextBox Then
            ctl.FontName = "Arial"
            ctl.FontSize = 11
        End If
    Next ctl
    DoCmd.Close acReport, doc.Name, acSaveYes
Next doc
Set db = Nothing
 
Err_Change_Report_Style:
If Err.Number <> 0 Then
    MsgBox Err.Number & " " & Err.Description
    Resume Exit_Change_Report_Style
End If
 
Exit_Change_Report_Style:
Exit Function
 
End Function