昨天在做报表时，从其他地方导入了大量的报表，因为需求的原因，需要修改各个报表的属性，但报表的比较多，一个个修改也太麻烦了，所以简单的写了一个函数，用来批量修改报表属性。

直接复制下面的代码到模块里，把光标放到函数里，直接按F5运行就可以了。

Sub test()
   On Error Resume Next
    Dim obj As AccessObject
    Dim frm As Report
   
For Each obj In CurrentProject.AllReports
    DoCmd.OpenReport obj.Name, acViewDesign
    With Reports(obj.Name)
        .AutoCenter = True   '是否居中改成是
        .PopUp = True        '是否弹出改成是
        .Modal = True        '模式改成是
    End With
    DoCmd.Close acReport, obj.Name, acSaveYes
Next
MsgBox "完成修改。", vbInformation
End Sub