Dim rpt As Object
    For Each rpt In CurrentProject.AllReports
        DoCmd.Close acReport, rpt.Name
    Next

可以将以上代码放在按钮的单击事件中测试或者在模块中定义一个公共过程调用。