Examples: Print method (NotesUIView - LotusScript®)

  1. This example opens the File Print dialog box.
    Sub Click(Source As Button)
  Dim workspace As New NotesUIWorkspace
  Dim uiview As NotesUIView
  Set uiview = workspace.Currentview
  Call uiview.Print
End Sub
  2. This example prints a line between documents.
    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. This example inserts a page break between documents.
    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. This example prints the current view.
    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. This example prints page two of a document.
    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. This example prints a range of documents from a calendar view.
    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. This example prints the current view on printer 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