re,
aussi :
=> http://abeishbabu.blogspot.com/2009/08/ ... inter.html
Dim UIWork As New NotesUIWorkspace
Dim UIView As NotesUIView
Set UIView = UIWork .Currentview
If UIView Is Nothing Then
Dim Session As New notessession
Call UIWork.dialogbox("FRMPRINT", True ,True, True, True, True, True, " "+ Session.currentdatabase.title , UIWork.currentDocument.Document, False, True )
'Call uidoc.Print()
Else
Call UIView.Print(1,0,0,False,,"FRMPRINT")
End If