Here is some code thatI have used in the past to place a tick in the checkbox when printing, there are 2 versions here: I have highlighted in red the parts you will have to amend to your own table and forms and reports and fields.
Sub PrintRecord()
Const cstrtitle As String = "Printing Records"
Dim db As DAO.Database
Dim rst As DAO.Recordset
Dim fld As DAO.Field
Set db = CurrentDb
Set rst = db.OpenRecordset("qryNewRecordsFilter")
rst.MoveFirst
Do Until rst.EOF
rst.MoveNext
rst.Edit
rst.Fields("Printed") = True
rst.Update
rst.MoveNext
Loop
DoCmd.OpenReport "rptNewFilterReport", acViewNormal
End Sub
Function PrintSelectedRecord()
Dim db As DAO.Database
Dim rst As DAO.Recordset
DoCmd.OpenReport "rptnewFilterReport", acViewNormal
Set db = CurrentDb
Set rst = db.OpenRecordset("tblRegistration") '("qryNewReport", 2
rst.MoveFirst
'Do Until rst.EOF
Do Until rst.Fields("ID").Value = Forms![frmNewRecordsFilter]![ID]
rst.MoveNext
rst.Edit
rst.Fields("printed").Value = True
rst.Update
rst.MoveNext
Loop
DoCmd.Close acReport, "rptnewFilterReport"
DoCmd.Close acForm, "frmNewRecordsFilter"
DoCmd.OpenForm "frmRegistration", acNormal, "", "", , acNormal
DoCmd.GoToRecord acForm, "frmRegistration", acNewRec
End Function