java - 如何禁用Ctrl+P使用户不能直接打印当前打开的文档？

Question

在使用 Lotusscript 时，我希望我的用户无法通过按 ctrl+p 来打印文档。取而代之的是，我提供了一个操作按钮，以便它在打印文档之前执行一些额外的步骤。是否可以使用 lotusscript 或 java 禁用直接打印(ctrl + p)。或者作为替代方案，我们是否可以捕获 ctrl+p 事件，以便我们可以在真正的打印继续之前添加我们的代码。

我正在使用 9.0.1FP8 版

Answer 1

添加一个名为 $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 字段的值并显示打印对话框。