create your report.
have it bound to a table that has an AUTONUM field, Date Field.
make a form that connects to this table, set property to DATA ENTRY = TRUE
make a macro AUTOEXEC to open the form when the app starts
then when the form opens, it will have empty fields: autonum & date , for the user to enter the date.
user enters the date, clicks the Report button on the form
the Report button will :
1. save the record, to get the autonum
2. open the report (to screen or to printer). Docmd.OpenReport "rMyReport"
the rpt uses a query that reads the autonum on the form
ex: select * from table where [id]=forms!fMyForm!txtID
3. after it prints, close the app