Имя: Пароль:
1C
 
Вопрос
0 hellas78
 
13.05.08
16:21
Что такое предопределенный элемент 1Сv8?
1 maxar
 
13.05.08
16:23
ЖКК ?!
2 Восточный Парень
 
13.05.08
16:24
Книжки почитай желто-красные
3 Маркетолог
 
13.05.08
16:26
(0) Если у тебя есть конфигуратор, то лучше посмотри
в справочнике на закладке прочее.
4 Konan
 
13.05.08
17:19
Где найти конвертер табличного документа в формат PDF в виде процедуры или Dll?
5 simol
 
13.05.08
17:20
(4)Печатай на pdf принтер
6 Konan
 
13.05.08
17:22
Мне нужно процедурой сохранять, допустим в цикле
7 simol
 
13.05.08
17:23
программная печать, не вижу проблемы. себе сделал.
8 Konan
 
13.05.08
17:25
Не столько печать сколько сохранить эти файлы с определенным именем для отправки потом по эл.почте
9 simol
 
13.05.08
17:29
(8)Именно это и делал. Печать на pdf принтер это сохранение на диске pdf файла
10 Konan
 
13.05.08
17:31
А как с указанием имени?Такого которое мне нужно.
11 Konan
 
13.05.08
17:32
Где взять этот код?
12 simol
 
13.05.08
17:33
(10)Я потом переименовываю
13 Konan
 
13.05.08
17:36
вручную? А если их очень много?
14 shuhard
 
13.05.08
17:38
(13) дык в цикле печатаешь в файлик с предопределенным именем, переименовываешь один шт, бежишь дальше.
фича в том, что многие pdf принтеры, включая дистеллер не дают программно менять имя файла до печати.
15 Konan
 
13.05.08
17:40
(13)Интересная идея а можно фрагментик кода.
16 simol
 
13.05.08
17:43
КаталогВременныхФайлов = КаталогВременныхФайлов();
       Позиция = Найти(КаталогВременныхФайлов, "Temp");
       Если Позиция > 0 Тогда
           КаталогВременныхФайлов = Лев(КаталогВременныхФайлов, Позиция + 3) + "\";
       КонецЕсли;    
       
       ИмяФайлаСообщения = КаталогВременныхФайлов +"1S" + РасширениеФайла;
       ЭлементыФормы.ТабличныйДокумент.ИмяПринтера = "PDFCreator";
       ЭлементыФормы.ТабличныйДокумент.Напечатать(Истина);
       Файл = Новый Файл(ИмяФайлаСообщения);
       
       Ответ = Неопределено;
       Попыток = 15;
       Пока Попыток > 0 Цикл
           Пока Ответ <> КодВозвратаДиалога.Таймаут Цикл
               Ответ = Вопрос("Фомируется документ, подожите...." + Попыток, РежимДиалогаВопрос.ОК, 2);
           КонецЦикла;
           Ответ = Неопределено;
           Если Файл.Существует() Тогда
               СтароеИмяФайлаСообщения = ИмяФайлаСообщения;
               ИмяФайлаСообщения = КаталогВременныхФайлов + НаименованиеПечатнойФормы + РасширениеФайла;
               
               //Может быть создан, но еще не закрыт, потому еще пауза.
               Попыток = 15;
               Пока Попыток > 0 Цикл
                   Пока Ответ <> КодВозвратаДиалога.Таймаут Цикл
                       Ответ = Вопрос("Создание электронного письма, подожите...." + Попыток, РежимДиалогаВопрос.ОК, 1);
                   КонецЦикла;
                   Попытка
                       ПереместитьФайл(СтароеИмяФайлаСообщения, ИмяФайлаСообщения);
                       Прервать;
                   Исключение    
                   КонецПопытки;
                   Попыток = Попыток - 1;
               КонецЦикла;    
               
               Если Файл.Существует() Тогда
                   УдалитьФайлы(СтароеИмяФайлаСообщения);
               КонецЕсли;    
               Файл = Новый Файл(ИмяФайлаСообщения);
               Прервать;
               
           КонецЕсли;
           Попыток = Попыток - 1;
       КонецЦикла;
17 Konan
 
13.05.08
17:56
Спасибо, попытаюсь разобраться.