saving reports

[DKenny]

The following should give you a start.
Basically I'm looping through each report in the "AllReports" collection and calling the OutputTo method to save a copy to a specified path.

Private Sub Export_Reports()
Dim rptTemp As AccessObject
Dim sPath As String
 
    sPath = "C:\Reports\"
        
    DoCmd.SetWarnings False
    
    For Each rptTemp In Application.CurrentProject.AllReports
        DoCmd.OutputTo ObjectType:=acOutputReport, _
                        ObjectName:=rptTemp.Name, _
                        OutputFormat:=acFormatRTF, _
                        OutputFile:=sPath & rptTemp.Name
    Next rptTemp
    
    DoCmd.SetWarnings True
End Sub