如何使用 Lotus 脚本预览表单

Question

我想预览当前的表单，并且在预览中可以打印它，如何在 Lotus script 中执行此操作？

Answer 1

您想在视图中预览当前选定的文档吗？
您可以使用视图操作来运行如下内容：

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 )

Answer 2

笔记不太适合打印。根据您的要求，您最好编写代码来创建 Word 文档，然后可以打印该文档。有很多实现此目的的示例，以下是帮助您入门的示例之一：http://searchdomino.techtarget.com/tip/A-flexible-data-export-agent-for-Lotus-Notes

希望这会有所帮助。

Answer 3

使用要打印的表单的只读版本创建子表单。

要预览表单 - 让子表单显示在对话框中。将对话框设置为继承主文档中的值。

在子窗体上显示一个打印按钮，用于打印只读文档。打印时隐藏打印按钮。

Answer 4

您是否尝试过右键单击该文档？您也许可以通过右键单击来打印它。我会先尝试简单的事情，看看这是否满足用户的需求。

如果您正在谈论处理文档的工作流程，并且该过程已完成，并且您想要预览最终文档，那么您应该能够通过 java 端的 UI 文档类或 LotusScript 中的 NotesUI 类来完成此操作。一旦你掌握了 UIDocument 的句柄，你就可以做几件事。

如果该对象位于你的 UI 设计中，我会尝试将文档设置为只读并在预览窗格中显示它。然后，您可以查询用户是否想要打印文档并使用 UIDocument.print 选项。