例: Print method (NotesUIView - LotusScript®)

次の例は、[印刷] ダイアログボックスを表示します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uiview As NotesUIView
  Set uiview = workspace.Currentview
  Call uiview.Print
End Sub

次の例は、文書間の空白行を印刷します。

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

次の例は、文書間に改ページを挿入します。

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

次の例は、現在のビューを印刷します。

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

次の例は、文書の 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

次の例は、[カレンダー] ビューの印刷範囲内の文書を印刷します。

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

次の例では、プリンタ 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