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

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

 

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

ссылки:
http://java.sun.com/j2se/1.4.2/docs/api/ja...ge-summary.html (есть пример вывода поскрипта, могет выводить и ЖПГ)
http://search.techrepublic.com.com/search/...d+printing.html
на последней нуна зарегаться и собсна ссылки поглядеть

вот про джаву оттуда ^_^ http://java.sun.com/printing/whitepaper.html

 

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

 

Вложения выкладываются во временную папку, потом выполняется что-то типа этого:
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

 

Вложения выкладываются во временную папку, потом выполняется что-то типа этого:
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

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

 

Call notesEmbeddedObject.ExtractFile( path$ )