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
Véase también
Print method
Glosario
¿Desea opinar sobre la
Ayuda
o sobre la
utilidad del producto
?
Ayuda sobre la Ayuda
Todo el contenido de la Ayuda
Glosario