This is what my save record and print record looks like
Private Sub saverecord_Click()
On Error GoTo Err_saverecord_Click
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
Exit_saverecord_Click:
Exit Sub
Err_saverecord_Click:
MsgBox Err.Description
Resume...