OnBeforePageSave Event Example

This example displays a message box before the page has been saved and displays the document title of the file for the page.

Note   To run this example, you must have at least one open web and one open page within that web.

Create a form called frmLaunchEvents.frm and add two buttons, a button called cmdSave, and a button called cmdCancel. Add the following code to the Declarations section of a form code window.

Option Explicit
Private WithEvents eFPApplication As Application
Private pPage As PageWindow

Add the following code to the UserForm_Initialize section of the code window.

Private Sub UserForm_Initialize()
Set eFPApplication = New Application
End Sub

Add the following code to the cmdSave_Click section of the code window.

Private Sub cmdSave_Click()
Dim myPageWindow As PageWindow

Set myPageWindow = ActiveWeb.ActiveWebWindow.ActivePageWindow
myPageWindow.Save
End Sub

Add the following code to the cmdCancel_Click section of the code window.

Private Sub cmdCancel_Click()
'Hide the form.
frmLaunchEvents.Hide
Exit Sub
End Sub

Add the following code to the eFPApplication_OnBeforePageSave section of the code window.

Private Sub eFPApplication_OnBeforePageSave(ByVal pPage As _
    PageWindow, SaveAsUI As Boolean, Cancel As Boolean)
MsgBox "The following page will be saved: " & pPage.File.Name _
    & "will be saved with the title: " & pPage.Document.Title
End Sub