...= "rptGOData"
DoCmd.OpenReport stDocName, acPreview, , stFilter
DoCmd.Minimize
DoCmd.SendObject acReport, stDocName, "SnapshotFormat(*.snp)", , , "", strTitleLine, , True, ""
DoCmd.Close acReport, stDocName
' go to next
but this is a snapshot output, but should work the same