我想将Notes文档直接打印到pdf打印机。在视图中选择了文档。我不想打开打印机对话框表单。
原则上使用“ NotesUIView.Print”方法是有效的,但是,有时生成的pdf文档看起来与Notes文档并不完全一样(尤其是关于表格)。
因此,我尝试使用“ NotesUIDocument.Print”-方法:
Option Public
Option Explicit
Const pdfAppName = "PDF-XChange Standard"
Dim dc As NotesDocumentCollection
Dim curDoc As NotesDocument
Dim uidoc As NotesUIDocument
Dim workspace As New NotesUIWorkspace
...
Set dc = curDB.UnprocessedDocuments
...
Set curdoc = dc.GetFirstDocument
Call workspace.EditDocument(False,curDoc)
Set uidoc = workspace.Currentdocument
Call uidoc.Print(1,0,0,False,pdfAppName)
...
尽管将“ uidoc.print”中的第一个参数设置为“ 1”,将打开打印机对话框表单。在打印机对话框中,正确选择了打印机“ PDF-XChange Standard”。选择“确定”按钮可以正确打印文档。
非常感谢您的提示。