One possible solution is to first copy the report and give it a meaningful
name for the spooler. Print this copy and then delete it. Something like...
DoCmd.CopyObject , "Frank", acReport, "OriginalReportName"
DoCmd.OpenReport "Frank", acViewNormal
DoCmd.DeleteObject acReport, "Frank"
HTH
Sam