Как отключить Ctrl + P, чтобы пользователь не мог напрямую распечатать текущий открытый документ? - PullRequest
0 голосов
/ 25 января 2019

Работая в Lotusscript, я хочу, чтобы мои пользователи не могли печатать документы, нажимая ctrl + p. Вместо этого я предоставляю кнопку действия, чтобы она выполняла некоторые дополнительные действия перед печатью документа. Возможно ли отключить прямую печать (ctrl + p) с использованием lotusscript или java. Или, в качестве альтернативы, возможно, что мы могли бы захватить событие ctrl + p, чтобы мы могли добавить наш код до того, как начнется настоящая печать.

Я использую Release 9.0.1FP8

1 Ответ

0 голосов
/ 25 января 2019

Добавьте вычисляемое поле с именем $ 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 позадии покажите диалоговое окно печати. ​​

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...