А как из Лотуса программно печатать вложение?

[rocsolanka]

Надо по нажатию кнопки печатать карточку документа и документ-вложение. Печатать стандартными стредствами Lotus/приложения аттачмента не хотят :-( Можно такое сделать?

 

[Axel]

Просто так не получится.
Можно через OLE сделать , то есть открытие аттача в ассоциированном приложении и печать уже методом Print у этого приложения. Точно пройдет для Ворда и Екселя. Для остальных не проверял.

 

[rocsolanka]

Просто так не получится.
Можно через OLE сделать , то есть открытие аттача в ассоциированном приложении и печать уже методом Print у этого приложения. Точно пройдет для Ворда и Екселя. Для остальных не проверял.

А где можно посмотреть о методах приложения? я просто пока не понимаю даже где искать :-(
как его открыть я понимаю, а как из него печатать?

 

[Hedg]

Вешаем на кнопку
@Command([EditGotoField];"Поле для атача");
@Command([EditInsertObject])

 

[rocsolanka]

Вешаем на кнопку
@Command([EditGotoField];"Поле для атача");
@Command([EditInsertObject])

По моему, это что-то не то. Мне нужно не вставить объект, а распечатать существующий. :-(

 

[Hedg]

Когда запихнёшь обект таким образом , при открытии документа - атач откроется приложением которое зарегистрированно для данного типа объекта и отуда уже распечатаешь.

 

[Domino6]

В тени печает файл(атач) средствами ОС
Не забудьте указать имя атача можно получить разніми способами переменная file$

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)