Please help me loop through all Microsoft Access 2003 reports and change the font name of any text boxes/labels to HelveticaNeueLT Std... Thank you very much in advanced.
Private Sub Change_Font_AllReports()
Dim aob As AccessObject
'do the following command
'to keep the saving report question
'from always asking when it is closed.
For Each aob In CurrentProject.AllReports
DoCmd.OpenReport aob.Name, acViewDesign, , , acHidden
'code needed here...
'loop through all text boxes/queries... change font to HelveticaNeueLT Std
DoCmd.Save acReport, aob.Name
DoCmd.Close acReport, aob.Name