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
Véase también
Print method
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa
Glosario
¿Desea opinar sobre la Ayuda?
Ayuda sobre la Ayuda
Abrir la Ayuda en pantalla completa