LOTUSSCRIPT /COM/OLE のクラス
例:Print メソッド
1. 次の例は、[印刷] ダイアログボックスを表示します。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uiview As NotesUIView
Set uiview = workspace.Currentview
Call uiview.Print
End Sub
2. 次の例は、文書間の空白行を印刷します。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uiview As NotesUIView
pageseparator = 1
Set uiview = workspace.Currentview
Call uiview.Print(1, , , , pageseparator, , , , )
End Sub
3. 次の例は、文書間に改ページを挿入します。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uiview As NotesUIView
Set uiview = workspace.Currentview
pageseparator = 2
Call uiview.Print(1, 0, 0, False, pageseparator)
End Sub
4. 次の例は、現在のビューを印刷します。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uiview As NotesUIView
Set uiview = workspace.Currentview
Call uiview.Print(1, , , , , , True, , )
End Sub
5. 次の例は、文書の 2 ページ目を印刷します。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uiview As NotesUIView
Set uiview = workspace.Currentview
Call uiview.Print(1, 2, 2)
End Sub
6. 次の例は、[カレンダー] ビューの印刷範囲内の文書を印刷します。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uiview As NotesUIView
Dim drBegin, drEnd As Variant
drBegin = Datenumber(2002, 01, 01)
drEnd = Datenumber(2002, 12, 31)
Set uiview = workspace.Currentview
Call uiview.Print(1,,,,,, True, drBegin, drEnd)
End Sub
7. 次の例では、プリンタ Printer247 で現在のビューを印刷します。
Sub Click(Source As Button)
Dim workspace As New NotesUIWorkspace
Dim uiview As NotesUIView
Set uiview = workspace.Currentview
Call uiview.Print(1, , , , , , True, , ,"Printer247")
End Sub
関連項目
Print メソッド
用語集
フィードバック
ヘルプ
または
プロダクトユーザビリティ
ヘルプの使い方
すべてのヘルプ項目
用語集