I'll give an example of how to use code to print reports, I hope it will help
A table with two fields containing a report name and a criteria
dim MyDB as database, MyRec as recordset
set MyDB=codedb
set MyRec=mydb.openrecordset("Select ReportName, Criteria From ReportTable")
While not myrec.eof
docmd.openreport MyRec!ReportName, , , MyRec!Criteria
myrec.movenext
wend