Объясните новичку. Печать Jpg вложения из формы

[Guest]

В принципе сабж в теме.
Есть форма, в ней поле richtext с вложением JPG. Более того, в это же форме дополнительно есть аттачи тех же картинок. Если просто выделить нужный объект и выбрать Open и потом в соответствующем приложении сделать печать - все чудненько. НО.. нач. отдела, для которого собственно делалась данная форма для хранение сканов (высокого качества), говоорит что его подопечные не должны делать кучу лишних телодвижений. Вот нужна кнопочка, шоб нажали и сразу печать пошла. обычный @Command([FilePrint]) не подходит (даже с условием того, что я сделал скрытие всего лишнего на форме), ввиду того, что надо сделать распечатку скана один, в один, как бы типа сделали ксерокопию оригинала. (Сканы есть по несколько листов).
три часа шустрил по хелпу, ничего толкового пока что не нарыл. Если кто то сталкивался - дайте хотя бы направление!
Заранее спасибо!

В догонку, LotusNotes 7,5

 

[lmike]

как это сделал бы я... - java...
работа с имеджами и принтерскими заморочками реализованы
выдернуть имеджи из дока - не проблема
но это общие соображения, с имеджами я "ковырялся", с принтерами - нет (не приходилось)

ссылки:

Ссылка скрыта от гостей

(есть пример вывода поскрипта, могет выводить и ЖПГ)

Ссылка скрыта от гостей

на последней нуна зарегаться и собсна ссылки поглядеть

вот про джаву оттуда ^_^

Ссылка скрыта от гостей

 

[Constantin A Chervonenko]

С красотами печати в LND слабовато. Примерно как в браузере: всё плавающе-безразмерно-автопереносимое.
Так чтААА.. Можно через OLE->Word/Excel. "Строгие" бланки мы именно так печатаем (но без сканов)

 

[7hi]

Вложения выкладываются во временную папку, потом выполняется что-то типа этого:
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(temp$)
Set colItems = objFolder.Items()
For i = 0 To colItems.Count - 1
colItems.Item(i).InvokeVerbEx("Print")
Next

 

[Guest]

Вложения выкладываются во временную папку, потом выполняется что-то типа этого:
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(temp$)
Set colItems = objFolder.Items()
For i = 0 To colItems.Count - 1
colItems.Item(i).InvokeVerbEx("Print")
Next

Я очень прошу прощения, (новичок все таки), если не трудно, объясните как во временную папку слаживать то эти вложения?

 

[azat20]

Call notesEmbeddedObject.ExtractFile( path$ )