If you don't want to use macros, set up a form, and apply an [On Timer] event to it. Then have the event check what time it is, and if the time is 4pm get it to print the report.
EG
If Format(Time(), "hh") = 16 Then
docmd.openreport "ReportName",acNormal,"",""
else
exit sub
You can also...