Dim rs As DAO.Recordset
Dim strSQL As String
Dim rpt As Report
Dim strFile As String
Dim strPath As String
Dim strReport As String
Dim strFullPath As String
DoCmd.OpenReport "rptRealGrouped", acViewPreview, , , acHidden
Set rpt = Reports("rptRealGrouped")...