現在のビューを印刷する（NotesUIView クラス）

Sub Initialize
	Dim ws As New NotesUIWorkspace
	Dim uiview As NotesUIView
	Set uiview = ws.CurrentView
	Call uiview.Print(1, , , , , , True, , )
End Sub





LotusScript 入門 Step2-3 NotesUIView

3行目 NotesUIView クラスの変数 uiview を宣言
4行目 NotesUIWorkspace クラスの CurrentView プロパティから現在のビューを取得、変数 uiview に格納。戻り値は NotesUIView オブジェクトであることに注意
5行目 NotesUIView クラスの Print メソッドを実行して、ビューを印刷。第1引数は、印刷部数。第7引数は、False（デフォルト）の場合、選択している文書の内容。True の場合、ビューを印刷。引数なし「uiview.Print」とした場合、印刷ダイアログを表示

※ ビューを開いた状態で実行すること

LotusScript
tyoshida
April 29, 2018 at 12:16 PM
Rating
0





No comments yetLogin first to comment...