Yes. You can use the following code to close all open Reports and Forms.
Dim intCounter As Integer
On Error Resume Next
For intCounter = 0 To Forms.Count - 1
DoCmd.Close acForm, Forms(intCounter).Name
For intCounter = 0 To Reports.Count - 1
DoCmd.Close acReport, Reports(intCounter).Name
To leave one open you will have to identify the one and then skip it when you are looping through the forms and reports.
Or you can close them all and then re-open what you need.