(Globals) (Declarations)
%INCLUDE "lsconst.lss"

Sub Queryopen(Source As Notesuiview, Continue As Variant)
 Dim view As NotesView
 Set view = Source.View
 If view.IsCalendar Then
   If Messagebox ("Do you want to continue?", _
   MB_ICONQUESTION, _
   "Calendar view") = IDNO Then
     Continue = False
   End If
 End If
End Sub

Sub Click(Source As Button)
 Dim wks As New NotesUIWorkspace
 Dim view As NotesUIView
 Set view = wks.CurrentView
 Call view.Print()
End Sub

See Also

NotesUIView class

Glossary