.

HCLSoftware Business Partner Domino Consulting Services CRUCIAL Notes Tools +1 212-599-2048	Domino Consulting Services CRUCIAL Notes Tools Domino administration Notes development	Chat now
.

EN - English CN - 中文 JP - 日本語 DE - Deutsch FR - Français BR - Português RU - Pу́сский IT - Italiano IN - हिन्दी ES - Español KR - 한국어 ID - Indonesia NL - Dutch TR - Türkçe SA - العربية SE - Svenska NO - Norsk PL - Polski TH - ไทย DK - Dansk MY - Malay PH - Filipino GR - Ελληνικά FI - Suomi IL - עברית IE - Gaeilge CZ - Čeština UA - Українська RO - Română VN - Tiếng Việt BD - বাংলা HU - Magyar

(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

Feedback on Help or Product Usability?

Help on Help

All Help Contents

Feedback on Help or Usability?

Help on Help