LOTUSSCRIPT/COM/OLE CLASSES
Examples: Print method
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
See Also
Print method
Glossary
Feedback on
Help
or
Product Usability
?
Help on Help
All Help Contents
Glossary