Есть идея заюзать сабж из 1С. КоммандаСистемы() не катит, так как это dll, поставить какой-нить irfanview конечно можно, но не круто. Да и просто девки к интерморде этой проги привыкли. В принципе цели-то нехитрые, сохранить в справочнике ссылки на сертики, да по документу все их распечатывать. Кто бы скриптик подсказал... Идеально было бы чтобы сразу на предварительный просмотр выводилось.

+(0) Имеется ввиду встроенная в ХР, shimgvw.dll.

я сделал базу сканированных сертиков, и в имени картинки заложил код серии и прочее. т.е. по накладной высматриваются коды, выискаваются в папке со сканами, потом скан помещаю в макет 1с и на печать отправляю

1ска прекрасно сама выплевывает на печать (правда я на 8.1 сижу)

(2) Да это уже текучка, вопрос о другом...

(3) 7.7 не выплевывает

ну, как альтернатива irfanview  или еще видел, что в вордовский документ картинки суют и на печать кидают

(6) Да это не проблема... Интересена просто сама задача, решаема ли в принципе? Заказ-то несрочный.

(0) А в каком формате хранятся изображения, что 7.7 не выплевывает?

У себя я сделал почти также, как сказано в (2). Все отсканированные сертификаты в форматах GIF или JPEG.

(8) А хрен их знает во что они сканят... Либо jpeg, либо tiff какой-нить, вряд ли bmp. Думаешь просто ЗапуститьПриложение("бла-бла-бла.jpg")? Ща проверим..

(10) Нет, я так не думаю. :) Я имею ввиду, что 1С сама хорошо все печатает. Т.е. на таблицу навесить объект картинку.

GIF я решил использовать для черно-белых изображений, т.к. принтеры все равно черно-белые. А JPEG оставил, чтобы снабженцы не мучались со сканированием, а сразу брали с сайта поставщика готовые.

(11) Это самое неправильное решение.... а при большом количестве картинок - ппц.

(13) Ну если выводить на предпросмотр кучу изображний, то да.

У меня нет таких задач, чтобы печатать с предпросмотром кучу сертификатов. В этом случае, думаю, можно и IE задействовать.

(11) Ну это уж точно изврат. А вот (10) работает, именно в сабже и открывает, даж скучно, думал поизвращаюсь...

(14) При чем тут предпросмотр? Сама идея пихать в Таблицу - зло...

(17) И как это зло проявляется? Может я чего-то в своей жизни упустил.

Просто три года все работает и проблем ниразу не возникло.

+(16) Как двойной клик фигачит, хошь mp3 открывай, хошь что хошь. Млин, сколько лет эской занимаюсь, а кроме ехешников ничего этой хфункцией открывать не пробовал. Бывает же :)

(18) Если нужно по документу в сотню строк по каждой строке по серту вывести - будет очень прожорливо.

(19) Видать не печатал никогда большое количество ...тормоза.

Потому я у храню все в GIF. Размер файла не более 50 кб.

Чет у меня идея появилась прям в эску им и сканер прицепить. FineReader по OLE работает?

А команду "ЗапуститьПриложение" я использую для инструкция. Они хранятся в PDF.

Есть компонента.

(26) Где копать, на инфостарте?

(27) Давайте ящик. Правда я ее у себя не внедрял. А так работает.

(28) zalexey78(бобака)mail.ru

Ушло.

поймал, спасибки

(22) Большое количество чего: данных или вывод на экран?

данных = печать данных

(32) Картинок одновременно. Можно конечно и по одной выводить, но извращение же...

Об этом зле я знаю. :) Вопрос, возможно, глупый. А зачем выводить большое количество за раз. Их кто-то будет смотреть?

(35) Просто чтобы сто раз на кнопку не нажимать...

Кстати да, как бы еще этот вывод замутить, по принципу сразу на принтер...

+(37) Может правда воткнуть в таблицу и штатно, по одной пускать... Но фиговый вариант, у них уже куча картинок насканена. Хотелось бы поменьше извратов.

(36) Тогда вообще проблем не вижу. И никакого зла в этом случае не будет, если сразу на принтер послать из 1С.

(38) Кнопка "Печать (все)". :)

(35) Сама Таблица и печать её через 1с - зло и мееееедлееенннооо ...
Даже с 1 картинкой Таблица - ппц как меееддддленннооо ...

вот и думаю.. Должен же быть какой-то скриптец, либо параметр командной строки, чтобы сразу на принтер...

(41) Не знаю что за картинки Вы вставляете, т.е. какой размер файла. Но три года тормозов не наблюдаю в 10 базах.

(42) Это шутка. Никак не могу понять, кто Вам запрещает штатно распечатать обработкой все картинки сразу на принтер.

(43) :))) Ну, заблуждайтесь дальше ...

При выводе изображения на экран формата А4 тормозов нет, даже не кселеронах в магазинах. Если вывести сразу кучу, то да...

(44) А я как раз вполне серьезно. Т.е. имеем на данный момент кучу картинок в неизвестно каком формате. То ли оно вставится как картинка, то ли нет - бабушка надвое сказала. Не может быть чтобы в хрюшке скриптом нельзя было их пустить сразу на принтер каким-либо скриптом, используя стандартный просмотрщик. Мучаю гугль короче..

Вывел прямо сейчас на экран. Все летает. :)

Тогда может все таки посмотрите в сторону IE.

(49) Не все форматы понимает

Значит это не пригодится. :)
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnscrpt/html/dhtmlprint_samplecode.asp

(50) Храни всё в djvu ... лучше пока формата нет.

(52) Дело в том что они с этими сертиками работают не первый день, и не первый год. Есть уже куча насканенных. Поэтому надо идти по пути наименьшего сопростивления. Чтобы просто в справочнике стандартным диалогом выбрали путь к файлу и все. Если же я им скажу что эти несколько тысяч файлов для начала надо в другой формат перегонять, жить мне останется меньше пяти минут :)

(51) Вообще вариант конечно, но было бы кошернее что-то заточенное под прогу из сабжа, а не IE.

(53) Ну и что ? Конвертнешь все в djvu и привет ... скопом и все...

+55 А новые картинки пущай сразу сканят в djvu ... тем более. что как правило, никто не хранит 1 картинку - т.е все используют многостраничные картинки (pdf/tiff) - намного удобнее ...

(56) Чего ж там удобного-то, если один товар - один серт. В расходной накладной рандомный набор этих товаров. Как я тебе нужную страницу откапывать буду? Наоборот удобнее одна страница, один файл.

(57) Серты - да, всё остальное (справки там, удостоверения качества)и прочее - нет... , если есть, конечно.

(58) да есть. Но в чем разница? Серты отдельно, справки отдельно. Нефик мудрить. Что хотят, то и сканят. В произвольном порядке.

+58 если многостраничные не нужны, то храни в gif/jpeg и печатай вордом - это быстрее чем IE и в разы быстрее чем печать самой 1с-иной через Таблицу ...

(58) А djvu в сравнении с pdf сильно отличается по размерам конечных файлов? Просто с этим форматом в плотную не работал.

(59) Гы ...на одну Номенклатуру, у нас кпримеру, 1 сертификаит, и 10 страничек справок + 1 уд.качества ..Ну и нафик мне хранить 12 файлов и их печатать, когда проще всего лишь 2? 1-серты,2-ой - всё остальное ...

Я лишь предлагал штатные средства. А так с (60) согласен. И скриптик маленький будет. Только вот не везде ворд стоит.

(61) http://djvu-soft.narod.ru/
разница огромная, собственно почему и перешли на него ...

(64) Сейчас взгляну. А то решил на pdf делать всю документацию. Даже специально перебрал кущу принтеров и программ, которые дадут минимальный размер конечного файла. :)

шо опять ?

//*******************************************
Процедура Сформировать()
   Перем Путь,Имя;
   Если ФС.ВыбратьФайл(0,Имя,Путь,"","Тиф (*.tif*)|*.tif*|Мди (*.mdi)|*.mdi","tif*")=0 Тогда
       Возврат;
   КонецЕсли;
   МодиДок=СоздатьОбъект("MODI.Document");
   МодиДок.Create(Путь+Имя);
   Сообщить(МодиДок.images.count);
   Для к=1 По МодиДок.images.count Цикл
       МодиДок.PrintOut(к,к);
   КонецЦикла;
КонецПроцедуры


(66) Я же говорил, что и код будет маленьким. :) Зачем подсказали.

Ну я еще меньше придудумал:
rundll32 shimgvw.dll,ImageView_PrintTo /pt "ИмяФайла" "ИмяПринтера"
:)))
Только есть один недостаток, перед этим надо как-то узнать это самое имя...
А за (66) большой респект

Если сразу на принтер через сабж
rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_PrintTo /pt <Полное имя файла> <имя принтера>

(68) Фублин, не успел))

(66)
EnumPrinterConnections()
Синтаксис:
EnumPrinterConnections()
Назначение:
Возвращает коллекцию сетевых принтеров. Нечётные элементы содержат сетевые имена принтеров, чётные - названия локальных портов.
Параметры:
Нет.
Описание:
Без комментариев.
Пример:
WshNetwork=СоздатьОбъект("WScript.Network");
Printers=WshNetwork.EnumPrinterConnections();
ы=0;
Пока ы <= Printers.Count()-1 Цикл
   Сообщить(Printers.Item(ы)+" - "+Printers.Item(ы+1));
   ы=ы+2;
КонецЦикла;

(62) Надо подумать... Просто если сканировать из эски буду, подозреваю что 12 файлов все-таки удобнее.

+ еще есть объект, поставляемый сабжем: СоздатьОбъект("Preview.Preview")
тока как он работает - это разбираться надо

(71) Пасиб :)
Кстати, а кто такой MODI из (66)?

(74) Microsoft Office Document Imaging Viewer Control

(72) Чем же ? Нужно девочке "подправить" что-то, думаешь,прощебудет искать в 12-ти файликах чем в 1-ом ? ...Даже просто имена этих 12-ти файликов хранить надо ...тоже

(73) Чет не прописан у меня такой в реестре...

будет только с МСО

(76) Интересно что ей может потребоваться подправить в скане...

(68) Кстати, если сделать так:
rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_PrintTo /pt <КаталогСКартинками> <ИмяПринтера>
то на печать отправляется все изображения из каталога "Отпечаток на всю страницу"

+(80) Надо, кстати у себя так сделать, наверное

(78) Не гут. Тогда наверное лучше по варианту (68).

(80) Ну весь каталог-то мне незачем...

Кстати, через ЗапуститьПриложение() работает, не только через КоммандаСистемы()

(83) Надо просто проверить что будет быстрее:
1. Каждый файл отправлять отдельной командой (что при большом количестве картинок наверняка будет медленно)
2. Скопировать нужные во временный каталог и отправить его весь

(84) Ессно, причем от "КомандаСистемы()" пока не завершится запускаемое приложение будет висеть окно командной строки

(79) Не поверишь, каждый день правят ...и по многу.

(87) Для этого тады лучше им кнопочку сделать, прямо в форме элемента справочника, типа "Редактировать". Еще удобнее будет.

вообщето mspaint /p файлы

(89) Вот об этом не знал. :) Спасибо.

(76) Так и для одного тоже надо хранить... Я своих просто заставил при скане указывать имя файла в определенном шаблоне типа номера и даты. сначала поплакали, а сейчас привыкли и радуются

(91) У нас проще, имя в автоматом присваивается и всего делов ...:)

(85) Грамотная мысля. Хотя по идее отправлять по одному не должно быть долго. shimgvw.dll скорее всего в кэш запрыгнет, и все будет летать. В лююбом случае отправка на печать второй и последущих страниц будет происходить быстрее чем собственно печать, так что проблем не должно быть. Посмотрим потом, как на реальной базе пойдет..

(89) Тока попробуй сколько страниц получится, если у картинки размер будет большой

(92) Сканируют ручками, потому как сканер на одной машине, а одинесина на терминале крутится, а с удаленным сканированием не шибко хочется заморачиваться

(89) Не все форматы понимает. Черт его знает во что они там насканили. Програмкой из сабжа они для печати пользуются, в этом уверен. Соответственно она точно поймет все что у них есть.

(95) Млин, а у моих ведь так же...

(95) Так у нас аналогично ... 5-6 сканёров локально, локально же и сканят...в 1с-ине просто указывают на этот файлик - он просто летит с новым именем в нужную папку на серваке и всё ..

(98) Да эт-то понятно, но хочется сделать красиво, нажала на форме кнопочку сканировать и процесс пошел...

(98) Думаешь так проще?
По варианту указания имени файла по шаблону
1. Указать при сканировании имя файла

По варианту указания ссылки на файл
1. Сканировать документ (при этом указать имя файла или осознать какое оно есть и запомнить)
2. Переключиться на терминальный сеанс
3. Указать файл (при этом в большинстве случаев необходимо найти компьютер в сети, и найти там файлик с запомненным именем)

Хотя, конечно можно это упростить... Да и как у тебя сделано тоже не знаю... Рассказывай))

Фигня, ща какой-нить батник накатаю, в свойствах пользователя путь к нему, по нажатию на кнопку сканировать, запускается батник, который запускает сканирование во временном каталоге, при наличии файла в этом каталоге эска его подхватывает и копирует куда надо.

который запускает сканирование во временном каталоге, в смысле картинку во временном каталоге сохраняет.

(100) Указать имя файла по шаблону ? :)) Забодаются + нужно не ошибиться + опять таки скинуть в нужное место...
А так:
1.при сканировании по умолчанию присваивается имя (любое) в любой программе для сканирования
2.Переключится в терминал, ну не долго, он у них и так всегда открыт...:)
3.тупо хранить имя каталога куда сканировать, например в справочнике пользователей ..

(103) >> Указать имя файла по шаблону ? :)) Забодаются + нужно не ошибиться + опять таки скинуть в нужное место...
Ну на первых порах ошибались, сейчас привыкли (причем девочка, которая сканит хм... мягко выражаясь - умом не блещет)

1) - тогда нужно после сканирования каждого документа сразу указать в 1С файлик, иначе если отсканирует несколько и потом фик разберется
2) - значит для каждого документа надо будет переключиться на терминал и обратно
3) Вот это верно, но в варианте с указание шаблона достаточно просто хранить список каталогов с сканами и все их скидывать в заранее определеннsq каталог

Замутил сканирование с помощью ВК от AndrejFAA, пока на 1С, работает машинка. Кому не влом погоняйте на своих сканерах тестовую обработку, а я пока попробую это дело на vbs перевести, чтобы с терминала запускать.
Процедура Сканировать()
   ЗагрузитьВнешнююКомпоненту("1CScan.dll");
   Scanner=СоздатьОбъект("AddIn.ScanManager");
   If Scanner.SelectScanners()=0 Then
       Message("В системе не установлено ни одного сканера");
       Return;
   EndIf;
   
   ScannersList=CreateObject("ValueList");
   
   Scanner.SelectScanners();
   While Scanner.GetScanner()=1 Do
       ScannersList.AddValue(Scanner.ProductName);
   EndDo;
   
   ScannerName="";
   If ScannersList.ChooseValue(ScannerName, "Выберите сканер")=0 Then
       Scanner="";
       Return;
   EndIf;
   
   Scanner.SelectScanners();
   While Scanner.GetScanner()=1 Do
       If TrimAll(Scanner.ProductName)=TrimAll(ScannerName) Then
           Break;
       EndIf;
   EndDo;
   
   If Scanner.Connect()=0 Then
       Message("Не удалось подключиться к сканеру");
       Scanner="";
       Return;
   EndIf;
   
   Scanner.SetParam("PixelType", 0);
   Scanner.SetParam("XResolution", 150);
   Scanner.SetParam("YResolution", 150);
   Scanner.SetParam("Orientation", "Rot0");
   Scanner.SetParam("Rotation", 0);
   Scanner.SetParam("PaperSize", "A4");
   Scanner.SetParam("AutoFeed", 0);
   Scanner.SetParam("Duplex", 0);

   If Scanner.ПолучитьФайлTIFF(КаталогВременныхФайлов()+"TempPic.tiff")=0 Then
       Message("Не удалось отсканировать странцу");
       Scanner.Disconnect();
       Scanner="";
       Return;
   Else
       ФайлСКартинкой=КаталогВременныхФайлов()+"TempPic.tiff";
       If DoQueryBox("Страница успешно отсканирована. Открыть просмотр?", "Да+Нет")="Да" Then
           RunApp("TempPic.tiff")
       EndIf;
       
   EndIf;
   
   Scanner.Disconnect();
   Scanner="";
КонецПроцедуры // Сканировать

сама компонента: http://www.rapidshare.ru/613785
мой шедевр: http://www.rapidshare.ru/613809

Мне вот все интересно. А как быть в случае при сканировании с автоподатчика.

(106) Scanner.SetParam("AutoFeed", 1);

+(107) Ну и цикл потом:
While Scanner.ПолучитьФайлTIFF(КаталогВременныхФайлов()+"TempPic.tiff")=0 Do
EndDo;

+(108) Тьфу ты:  
While Scanner.ПолучитьФайлTIFF(КаталогВременныхФайлов()+"TempPic.tiff")=1 Do
EndDo;
так в смысле

+(109) Передавая вместо константы разные имена файлов разумеется.