Examples: AddPageBreak method

This script adds a page break to the current document.

Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rtitem As Variant
Set uidoc = workspace.CurrentDocument
Set doc = uidoc.Document
Set rtitem = doc.GetFirstItem("Content")
If rtitem.Type <> RICHTEXT Then
  Messagebox "Content is not a rich text item."
End If
Call rtitem.AddPageBreak
Call doc.Save(False, True)