我想预览当前表单,在预览中我可以打印它,我如何在 lotus 脚本中做到这一点?
4 回答
使用要打印的表单的只读版本创建一个子表单。
预览表单 - 让子表单显示在对话框中。将对话框设置为从主文档继承值。
在子窗体上显示一个打印按钮,它将打印只读文档。打印时隐藏打印按钮。
Notes 并不是很适合打印。根据您的要求,您最好编写代码来创建一个可以打印的 word 文档。有很多例子可以实现这一点,这里有一个可以帮助您入门:http ://searchdomino.techtarget.com/tip/A-flexible-data-export-agent-for-Lotus-Notes
希望这可以帮助。
您想在视图中预览当前选定的文档吗?
您可以使用运行如下操作的视图操作:
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 )
您是否尝试过右键单击文档?您可以通过右键单击来打印它。我会先尝试简单的事情,看看这是否满足用户需求。
如果您正在谈论处理文档的工作流程并且该过程已完成并且您想要预览最终文档,您应该能够通过 java 端的 UI 文档类或 LotusScript 中的 NotesUI 类来执行此操作。一旦你掌握了 UIDocument 的句柄,你就可以做几件事..
如果该对象在您的 UI 设计中,我会尝试将文档设置为只读并在“预览”窗格中显示它。然后,您可以查询用户是否要打印文档并使用 UIDocument.print 选项。