Имя: Пароль:
1C
1C 7.7
v7: PDF отправить на печать
0 picom
 
15.07.11
11:06
Есть в каталоге файл в формате PDF
как его средствами 1с лучше вывести на печать?
1 andrewks
 
15.07.11
11:08
pdf reader не предлагать?
2 povar
 
15.07.11
11:09
запуститьПриложение
3 picom
 
15.07.11
11:10
(2) как узнать ключ запуска для вывода на печть?
4 povar
 
15.07.11
11:11
(3) F1
5 povar
 
15.07.11
11:11
(3) яндекс тебе нахера дан ?
6 picom
 
15.07.11
11:12
(4) Т.е. вывод будет на принтер по умолчанию?
7 andrewks
 
15.07.11
11:26
(3) открой для себя HKEY_CLASSES_ROOT\

"ПолныйПуттьК\AcroRd32.exe"/h /t "имяФайла.pdf" "имяПринтёра"

если будет сильно смущать остающийся пустой ридер (без открытых доков) можно его потом прибить

и, да, - в поиске тоже есть инфа!
например, http://forums.systeminetwork.com/isnetforums/showthread.php?t=52064
8 picom
 
25.07.11
06:24
Появились еще вопросы
1. Как узнать путь в реестре к программе Arobat?
2. Как отправить на принтер сразу несколько файлов?
9 smaharbA
 
25.07.11
06:43
(8)
cmd /c "echo off & for /f "tokens=2 delims==" %i in ('assoc .pdf') do ftype %i"
(если все с ассоциациями ок)
10 picom
 
25.07.11
06:48
(9) Огго ....
а как эту строку запуска загнать в переменную "ПутьКАкробату"?
11 smaharbA
 
25.07.11
06:57
тогда (опять же если с ассоциациями все ок)


ШелСкрипт=СоздатьОбъект("WScript.Shell");
Пдф=ШелСкрипт.RegRead("HKCR\.pdf\");
Сообщить(ШелСкрипт.RegRead("HKCR\"+Пдф+"\Shell\Open\Command\"));
12 picom
 
25.07.11
07:06
Оказывается работает и просто
   ЗапуститьПриложение("AcroRd32.exe");
Но вот
   ЗапуститьПриложение("AcroRd32.exe "+ИмяФайла);
уже не работает (Ничего не открывает), по непонятной причине
Имя файла = c:\pic\1.pdf
Зато работает просто
       ЗапуститьПриложение(ИмяФайла);
Но там некуда ключи вставлять.
(11) как-то можно упростить, учитывая то что я написал в этом сообщении
13 smaharbA
 
25.07.11
07:14
(12) это будет работать если пути соблюдены
ЗапуститьПриложение запускает либо исполняемый файл, либо по ассоциации
запускай так

//*******************************************
Процедура Сформировать()
   Перем Имя, Путь;
   Если ФС.ВыбратьФайл(0,Имя,Путь,"","ПДФ|*.pdf","*")=0 Тогда
       Возврат;
   КонецЕсли;
   Файл=Путь+Имя;
   ШелСкрипт=СоздатьОбъект("WScript.Shell");
   Пдф=ШелСкрипт.RegRead("HKCR\.pdf\");
   ЗапуститьПриложение(СтрЗаменить(ШелСкрипт.RegRead("HKCR\"+Пдф+"\Shell\Open\Command\"),"%1",Файл));
КонецПроцедуры
14 picom
 
25.07.11
07:16
(13) Отлично, спасибо
Буду пробовать
Непонятно только как теперь сразу на печать отправить много файлов, не каждый же посылать отдельно
15 smaharbA
 
25.07.11
07:20
проводник умеет
16 picom
 
25.07.11
07:22
(15) Ну вот и хочу выяснить, как он это делает, через запятую вроде не получается перечислить при открытии в командной строке (
17 picom
 
25.07.11
07:54
И каким ключем акробат закрывается сразу после печати?
чего-то не нашел
18 smaharbA
 
25.07.11
07:58
если есть доверие проводнику то используй
СоздатьОбъект("shell.application") и метод .Verb() для выбранных элементов