I have the following code in a report.
Private Sub Report_Close()
Dim Msg, Style, Title, Response
Msg = "Did you want to save this document to word?"
Style = vbYesNo + vbExclamation
Title = "Save to Word?"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
DoCmd.CancelEvent
Else...