In the following example, the End event procedure launches Microsoft Outlook after the RM Customer Report prints:
Private Sub Report_End() Dim Response As Integer Dim RetVal As Variant Response = MsgBox("Do you want to launch MS Outlook?", _ vbYesNo) If Response = vbYes Then RetVal = Shell("C:\Program Files\Microsoft Office\ + _ "Office\Outlook.exe", vbNormalFocus) End If End Sub