Имя: Пароль:
1C
 
Мастер печати фотографий...
0 CepeLLlka
 
27.04.11
21:05
Гуглю гуглю.. никак не нагуглю..
Как мне из 1С запустить мастер печати фотографий? Он хз как запускается вобще
1 smaharbA
 
27.04.11
21:05
загляни в реестр
2 smaharbA
 
27.04.11
21:07
+
rundll32.exe C:\WINDOWS\system32\shimgvw.dll,ImageView_PrintTo /pt "%1" "%2" "%3" "%4"
3 vicof
 
27.04.11
21:07
(0) пишешь email в фотомастерскую, прикрепляешь фотографии, а мастер их принимает и распечатывает.  Тебе остается лишь придти и забрать их.
4 CepeLLlka
 
27.04.11
21:08
(2)
Читай когда находишь что-нибудь..

rundll32.exe c:\Windows\system32\shimgvw.dll,ImageView_Fullscreen

Вот это хотябы запускает его.. а то что ты нагуглил.. я хз
5 smaharbA
 
27.04.11
21:08
(4) дурак ты
6 CepeLLlka
 
27.04.11
21:09
А чё дурак то? Я не знаю тех параметров что там ещё.. мне нужно разобраться.. а ты мне сразу сунул.. я ведь не пойму же :(
7 smaharbA
 
27.04.11
21:09
дак спрашивай
8 CepeLLlka
 
27.04.11
21:11
Дык вот смотри.. мне нужно чтобы у меня сразу печаталось по два рисунка на странице.. мне нужно туда ещё файлы передавать какие-то ведь..
9 CepeLLlka
 
27.04.11
21:11
А как их передать то?
10 CepeLLlka
 
27.04.11
21:11
А можно как-нибудь открыть эту длл и поглядеть чё она может то вобще..
11 smaharbA
 
27.04.11
21:11

Функция ВыборПринтера()
   ТЗ=СоздатьОбъект("ТаблицаЗначений");
   ТЗ.НоваяКолонка("ПоУмолчанию");
   ТЗ.НоваяКолонка("Имя");
   ТЗ.НоваяКолонка("Путь");
   ТЗ.НоваяКолонка("Состояние");
   ТЗ.НоваяКолонка("Документы");
   ТЗ.НоваяКолонка("Модель");
   ТЗ.НоваяКолонка("Комментарий");
   ТЗ.НоваяКолонка("Размещение");
   
   Скрипт = CreateObject("MSScriptControl.ScriptControl");
   Скрипт.Language = "javascript";
   Скрипт.Timeout=-1;
   Шел=СоздатьОбъект("Shell.Application");
   КоллекцияПринтеров=Шел.NameSpace("::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::{21EC2020-3AEA-1069-A2DD-08002B30309D}\::{2227A280-3AEA-1069-A2DE-08002B30309D}");
   Скрипт.AddObject("КоллекцияПринтеров",КоллекцияПринтеров.Items());
   Перечисленные=Скрипт.eval("Перечисленные=new Enumerator(КоллекцияПринтеров)");
   Пока Перечисленные.atEnd(0)=0 Цикл
       ТЗ.НоваяСтрока();
       ТЗ.ПоУмолчанию = "";
       ТЗ.Имя = Перечисленные.item(0).Name;
       ТЗ.Путь = Перечисленные.item(0).Path;
       ТЗ.Состояние=КоллекцияПринтеров.GetDetailsOf(Перечисленные.item(0),2);
       ТЗ.Модель=КоллекцияПринтеров.GetDetailsOf(Перечисленные.item(0),5);
       ТЗ.Комментарий=КоллекцияПринтеров.GetDetailsOf(Перечисленные.item(0),3);
       ТЗ.Размещение=КоллекцияПринтеров.GetDetailsOf(Перечисленные.item(0),4);
       Стр="";
       Действия=Скрипт.eval("new Enumerator(Перечисленные.item().verbs())");
       Пока Действия.atEnd(0)=0 Цикл
           Стр=Стр + Действия.item(0).name +"" "";
           Действия.moveNext(0);
       КонецЦикла;
       Если (Найти(Стр,"Использовать по умолчанию")=0) и (ТЗ.КоличествоСтрок()>1) Тогда
           ТЗ.ПоУмолчанию = "@@@";
       КонецЕсли;
       Перечисленные.moveNext(0);
   КонецЦикла;
   Если ТЗ.ВыбратьСтроку(Стр,"Выберите принтер")=0 Тогда
       Возврат ПолучитьПустоеЗначение();
   КонецЕсли;
   Путь=ТЗ.ПолучитьЗначение(Стр,"Путь");
   Возврат Путь;
КонецФункции    // ВыборПринтера
//*******************************************
Процедура Сформировать()
   Перем Имя,Путь;
   Если ФС.ВыбратьФайлКартинки(0,Имя,Путь,"Выбор для печати")=0 Тогда
       Возврат;
   КонецЕсли;
   ПолноеИмяФайла=Путь+Имя;
   ПолноеИмяПринтера=ВыборПринтера();
   Если ПустоеЗначение(ПолноеИмяПринтера)=1 Тогда
       Возврат;
   КонецЕсли;
   ЗапуститьПриложение("cmd /c """"%systemroot%\system32\rundll32.exe"" ""%systemroot%\system32\shimgvw.dll"",ImageView_PrintTo /pt """+ПолноеИмяФайла+""" """+ПолноеИмяПринтера+"""""");
КонецПроцедуры
12 CepeLLlka
 
27.04.11
21:12
Нее.. пойду поем пока.. и потом уже.. сам разобраться попробую
13 CepeLLlka
 
27.04.11
21:12
(11) Огромное спасибо.. надеюсь смогу это всё переварить..
Спасибки тебе..
Прости что я так зло сказал :(
Рад что ты не обиделся.. и всё равно помог мне.. ещё раз спасибо.
14 smaharbA
 
27.04.11
21:57
та ладно ))
3 и 4 параметр заведует за сколько и как на листе, счас не скажу
15 CepeLLlka
 
27.04.11
22:01
Нет
16 CepeLLlka
 
27.04.11
22:04
Они заведут за другое... они использовались до 98 винды...
В них укаывалось в 3 хз чё.. забыл.. а в 4 порт
17 smaharbA
 
27.04.11
22:06
может и так, не помню

http://msdn.microsoft.com/en-us/library/aa969385.aspx
18 smaharbA
 
27.04.11
22:06
мастер просто вызвать по аналогии с Функция ВыборПринтера
вербс + доит
19 CepeLLlka
 
27.04.11
22:08
%) Голова кругом.. рано я сюда залез.. лучшу забью пока на эти параметры.. если что.. потом ещё погуглю..
20 CepeLLlka
 
27.04.11
22:08
Спасибо тебе вобщем..
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.