Изменение определенных свойств сразу всех отчетов приложения

Private Sub ChangeReportsPrp()

'es = 10.10.2001

'Изменение определенных (ниже) свойств сразу всех отчетов приложения

Dim dbs As Database, ctr As Container, doc As Document

Dim objReport As Report

On Error GoTo ChangeFormsPrpErr

Set dbs = CurrentDb

Set ctr = dbs.Containers!Reports

'цикл по всем отчетам

For Each doc In ctr.Documents

'открытие отчета в режиме редакции

DoCmd.OpenReport doc.Name, acViewDesign

Set objReport = Reports(doc.Name)

'отображение инфы о тек. отчете в Status Bar

SysCmd acSysCmdSetStatus, "Обрабатываю Отчет - " & doc.Name

'***********************************************************

'СОБСТВЕННО ИЗМЕНЕНИЕ СВОЙСТВ

'objReport.Picture= "c:\Windows\Winlogo.bmp"

'...

'... ДРУГИЕ свойства

'Закрытие отчета

DoCmd.Close acReport, doc.Name, acSaveYes

Next doc

SysCmd acSysCmdClearStatus

Exit Sub

ChangeFormsPrpErr:

MsgBox Err.Description & vbCrLf & "При обработке Отчета - " & doc.Name, vbCritical

End Sub