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

  • Автор темы -
  • Дата начала
Статус
Закрыто для дальнейших ответов.

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

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

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 492
367
#2
как это сделал бы я... - 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
 

Constantin A Chervonenko

Well-Known Member
Lotus team
30.05.2006
1 334
4
#3
С красотами печати в LND слабовато. Примерно как в браузере: всё плавающе-безразмерно-автопереносимое.
Так чтААА.. Можно через OLE->Word/Excel. "Строгие" бланки мы именно так печатаем (но без сканов)
 
7

7hi

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

Гость
#5
Вложения выкладываются во временную папку, потом выполняется что-то типа этого:
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
Я очень прошу прощения, (новичок все таки), если не трудно, объясните как во временную папку слаживать то эти вложения?
 
Статус
Закрыто для дальнейших ответов.