Try this it works great for me.
DoCmd.OpenReport stDocName, acViewPreview, , criteria
DoCmd.SendObject acReport, stDocName, acFormatRTF, eaddress, , , "Open Orders", "Open Orders", 0
DoCmd.Close acReport, stDocName
The first DoCmd line executes the report. Need this...