Как просмотреть форму, используя скрипт лотоса

Question

Я хочу просмотреть текущую форму и в предварительном просмотре я могу распечатать ее, как я могу сделать это в лотосе?

Answer 1

Вы пытались щелкнуть правой кнопкой мыши на документе?Вы можете распечатать его, щелкнув правой кнопкой мыши.Сначала я попробую простые вещи и посмотрю, отвечает ли это потребностям пользователя.

Если вы говорите о рабочем процессе, в котором вы обрабатываете документы, и процесс завершен, и вы хотите предварительно просмотреть окончательный документ, вы должныЭто можно сделать с помощью классов документов пользовательского интерфейса на стороне Java или классов NotesUI в LotusScript.Когда у вас есть дескриптор UIDocument, вы можете сделать несколько вещей ..

Я бы попытался установить документ только для чтения и показать его на панели предварительного просмотра, если этот объект находится в вашем дизайне пользовательского интерфейса.Затем вы можете запросить пользователя, хотят ли они напечатать документ или нет, и использовать опцию UIDocument.print.

Answer 2

Заметки не очень хорошо подходят для печати.В зависимости от ваших требований, вам может быть лучше написать код для создания текстового документа, который затем можно будет распечатать.Существует множество примеров для достижения этой цели, и вот один из них, с которого можно начать: http://searchdomino.techtarget.com/tip/A-flexible-data-export-agent-for-Lotus-Notes

Надеюсь, это поможет.

Answer 3

Создайте подчиненную форму с доступной только для чтения версией формы, которую вы хотите напечатать.

Для предварительного просмотра формы - отобразите подчиненную форму в диалоговом окне.Установите диалоговое окно для наследования значений из основного документа.

В подчиненной форме отобразите кнопку печати, которая будет печатать документ только для чтения.При печати кнопка скрывается.

Answer 4

Вы хотите просмотреть текущий выбранный документ в виде?
Вы можете использовать действие вида, которое будет запускать что-то вроде этого:

Sub Click(Source As Button)
    Dim w As New NotesUIWorkspace
    Dim doc As NotesDocument
    Set doc = GetSelectedDoc()

    Call w.DialogBox(doc.form(0),True,True,True,True,False,True,"Put your title here",doc,True,True,False)
End Sub

Function GetSelectedDoc() As NotesDocument
    'Mb¤, 04.04.2005
    'The function returns currently selected document
    'On Error Goto ErrHandler
    Dim s As New NotesSession
    Dim db As NotesDatabase
    Dim c As NotesDocumentCollection

    Set db = s.CurrentDatabase  
    Set c = db.UnprocessedDocuments
    If c Is Nothing Then Exit Function

    Set GetSelectedDoc = c.getFirstdocument

    'add your error handling
End Function

См. здесь для NotesUIWorkspace.DialogBoxобъяснение

Или вы можете просто использовать @ DialogBox формула:

@DialogBox( form ; [AUTOHORZFIT] : [AUTOVERTFIT] : [NOCANCEL] : [NONEWFIELDS] : [NOFIELDUPDATE] : [READONLY] : [SIZETOTABLE] : [NOOKCANCEL] : [OKCANCELATBOTTOM] : [NONOTE] ; title )