Dim ws As New NotesUIWorkspace
Dim doc As NotesDocument
Set doc=ws.CurrentDocument.Document
Dim Hwin32 As Long
file$="Имя атача"
Set fOBJ = doc.GetAttachment(file$)
file$="c:\"+file$
Call fOBJ.ExtractFile(file$)
Dim nShowCmd As Long
nShowCmd = 0
lpOperation = "Print"
Hwin32 = ShellExecute(hwnd,"Print",file$,"",tmpPath,nShowCmd)