1

現在のフォームをプレビューしたいのですが、プレビューで印刷できます。ロータス スクリプトでこれを行うにはどうすればよいですか?

4

4 に答える 4

0

メモは、印刷には適していません。要件によっては、Word 文書を作成して印刷できるコードを作成する方がよい場合があります。これを実現するための例はたくさんありますが、ここにその 1 つを示します。

お役に立てれば。

于 2012-02-24T01:17:11.357 に答える
0

印刷するフォームの読み取り専用バージョンでサブフォームを作成します。

フォームをプレビューするには、サブフォームをダイアログ ボックスに表示します。メイン ドキュメントから値を継承するようにダイアログ ボックスを設定します。

サブフォームに、読み取り専用ドキュメントを印刷する印刷ボタンを表示します。印刷時に印刷ボタンを非表示にします。

于 2012-05-04T02:26:33.123 に答える
0

ビューで現在選択されているドキュメントをプレビューしますか?
次のようなものを実行するビュー アクションを使用できます。 

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 )
于 2011-03-05T02:24:35.833 に答える