Examples: End event


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


Documentation Feedback