Добавьте вычисляемое поле с именем $ KeepPrivate со значением «1».Это поле запрещает пользователю использовать клавиши CTRL + P.
Затем добавьте собственную кнопку со следующей логикой:
Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Call doc.RemoveItem("$KeepPrivate")
Call doc.Save(True,True)
doc.SaveOptions = "0"
Call uidoc.Close
Set uidoc = ws.EditDocument(True,doc,False)
Call uidoc.Print
Dim item As New NotesItem(doc,"$KeepPrivate","1")
Call uidoc.Save
Call doc.Save(True,True)
doc.SaveOptions = "0"
End Sub
Эта кнопка изменит значение поля $ KeepPrivate позадии покажите диалоговое окно печати.