例: Print method

次のフォームアクションスクリプトは [印刷] ダイアログボックスを表示します。このダイアログボックスでユーザーは現在の文書の印刷を設定するか、[キャンセル] を選択します。
```
Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.Print
End Sub
```

次のフォームアクションスクリプトは現在の文書を 1 部印刷します。[印刷] ダイアログボックスは表示されません。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.Print( 1 )
End Sub

次のスクリプトは現在の文書の 2 ページと 3 ページを 1 部ずつ印刷します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.Print( 1, 2, 3 )
End Sub

次のスクリプトは、プリンタ Printer247 の現在の文書を 1 部印刷します。

Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uidoc As NotesUIDocument
  Set uidoc = workspace.CurrentDocument
  Call uidoc.Print( 1, 0, 0, False, "Printer247" )
End Sub