Имя: Пароль:
1C
1С v8
Сохранить макет в JPG
,
0 lomanos
 
19.01.12
11:36
Здравствуйте.
Подскажите, есть ли возможность сохранить сформированный макет в файл JPG?
1 lomanos
 
19.01.12
11:37
*сформированную печатную форму
2 Wobland
 
19.01.12
11:37
да
3 Cube
 
19.01.12
11:37
(0) Ну может есть какие-нибудь виртуальные принтеры... Типовыми средствами - нет. А зачем?
4 mm_84
 
19.01.12
11:38
(0) printscreen
5 Cube
 
19.01.12
11:38
(2) Да ну?
6 Wobland
 
19.01.12
11:39
(5) -> (4) ;)
7 Cube
 
19.01.12
11:40
(6) Нажать кнопку, открыть фотошоп, вставить, обрезать, сохранить, выбрать формат и всё!!! Делов на 30 секунд, если фотошоп установлен, да?)))
8 Wobland
 
19.01.12
11:41
хм... я как-то пайнтом и с меньшим количеством телодвижений
9 Cube
 
19.01.12
11:42
(8) А если это ОСВ по 10 счету на 20 страниц?)))
10 aleks-id
 
19.01.12
11:43
11 Wobland
 
19.01.12
11:43
(9) а вот тут и начинается опа ;)
12 Rebelx
 
19.01.12
11:44
(0) а надо? может pdf?
13 1с-кин
 
19.01.12
11:44
(0) вам это просто так - побаловаться? PFD чем не устраивает?
14 Cube
 
19.01.12
11:45
Я не понимаю смысл этого всего? Зачем нужно сохранять в джпег, чем Эксель не устраивает?
15 1с-кин
 
19.01.12
11:45
*pdf
16 Rebelx
 
19.01.12
11:45
или tif? это может виртуальный принтер из MS офиса
17 mm_84
 
19.01.12
11:45
(7) хватит и paint
18 1с-кин
 
19.01.12
11:45
(14) отчеты в Эксель не комильфо.... в москве не поймут...
19 mm_84
 
19.01.12
11:46
(9) 20 картинок, думаю вставлять 20 страниц в 1 рисунок не будет никто
20 Cube
 
19.01.12
11:46
(18) В смысле?
21 Андрюха
 
19.01.12
11:46
(0) копни BullZip pdf принтер и gslite
22 Cube
 
19.01.12
11:47
(19) А у тебя страница помещается на мониторе, да?)
23 mm_84
 
19.01.12
11:51
(22) ползунок есть)
24 1с-кин
 
19.01.12
11:57
(20) лень им там разбираться в меленьких цифрах и ячейках, им картинки подавай.. диаграммы и крупные буквы :)
25 Cube
 
19.01.12
12:03
(24) Ну и при чем здесь формат?)) Лепи диаграмму в СКД, сохраняй в Эксель - все довольны))
26 lomanos
 
19.01.12
12:16
(2) Какой?
(3) Виртуальные принтеры в принципе вариант, но только если можно к ним обратиться кодом. Есть какие-нибудь варианты?
(4) дану )
(7) Вопрос именно в том, чтобы сделать сохранять программно. И кстати Paint удобнее
(8) +1
(9) Почти мой вариант )
(12) Можно и в pdf, оттуда можно в jpg конвертировать скриптом (где-то было, поискать нужно). Есть вариант сохранить программно в pdf?
(13) Нет. Устраивает. Как?
(14) Есть острая нужда сохранять именно картинкой.
(16) Офис - не вариант, но спасибо.
(17) +1
(19) +1
(21) Спасибо за наводку. Есть вариант программного обращения к данному приложению или к его библиотеки? Он работает как виртуальный принтер?
27 Андрюха
 
19.01.12
12:17
(26) Я bullzip + gslite настраивал, могу кинуть кусок рабочего кода
28 lomanos
 
19.01.12
12:18
(27) Кинь, буду признателен: [email protected]
29 Cube
 
19.01.12
12:19
(26) последняя платформа умеет сохранять табличные документы в ПДФ.
30 Rebelx
 
19.01.12
12:19
pdf - 1C умеет сама сохранять в pdf, без сторонних принтеров
31 lomanos
 
19.01.12
12:19
(28) А еще лучше здесь кинь, многим пригодится
32 Lama12
 
19.01.12
12:20
(26) Ставишь пдф принтер и печатаешь в пдф файл.
К тому же 15 платформа (заявлено) позволяет сохранять в пдф файл.
33 lomanos
 
19.01.12
12:21
(29) у меня 8.1, и я не нашел, подскажи?
34 1с-кин
 
19.01.12
12:22
(33) последняя платформа - 8.2.15
35 1с-кин
 
19.01.12
12:22
(27) буллзип настраивается сложно
36 lomanos
 
19.01.12
12:22
(32) Можно из 1с (кодом) отследить/указать куда печатать файл?
37 Cube
 
19.01.12
12:22
(33) Под словами "последняя платформа" имеется ввиду последняя платформа... Последняя на данный момент 8.2.15.289.
38 lomanos
 
19.01.12
12:23
(34) Жаль, не вариант
39 Cube
 
19.01.12
12:23
(38) Обновить платформу не вариант?))
40 lomanos
 
19.01.12
12:24
(39) пока нет
41 Андрюха
 
19.01.12
12:28
Вот обработка печати в jpeg при установленном Bullzip и GSLite
//******************************************************************************
// глПечатьJPG()
//
Функция глПечатьJPG(ТабличныйДокумент, Знач Путь, ИмяФайла = "") Экспорт

   Если ФС.СуществуетФайл("C:\Program Files\Bullzip\PDF Printer\gs\gswin32c.exe") = 0 Тогда
       Сообщить("Некорректно установлен PDF принтер.", "!");
       Возврат 0;
   КонецЕсли;
   
   Попытка
       ПринтерPDF = СоздатьОбъект("Bullzip.PDFPrinterSettings");
   Исключение
       Предупреждение("Не установлен PDF принтер!");
       Возврат 0;
   КонецПопытки;
   
   ИмяВыходногоФайла = ФС.НайтиПервыйФайл(Путь + "\*.jpg");
   Пока ПустаяСтрока(ИмяВыходногоФайла) = 0 Цикл
       ФС.УдалитьФайл(Путь + ИмяВыходногоФайла);
       ИмяВыходногоФайла = ФС.НайтиСледующийФайл();
   КонецЦикла;
   
   Если ПустаяСтрока(ИмяФайла) = 1 Тогда
       ИмяФайла = "print<pageno,1>.jpg";
   КонецЕсли;
   
   Пока Прав(Путь, 1) = "\" Цикл
       Путь = Лев(Путь, СтрДлина(Путь) - 1);
   КонецЦикла;
   
   ПринтерPDF.SetValue("output", Путь + "\" + ИмяФайла);
   ПринтерPDF.SetValue("ShowSaveAS", "never");
   ПринтерPDF.SetValue("ShowProgress", "no");
   ПринтерPDF.SetValue("ShowProgressFinished", "no");
   ПринтерPDF.SetValue("ShowSettings", "never");
   ПринтерPDF.SetValue("ShowPDF", "no");
   ПринтерPDF.SetValue("ConfirmOverwrite","no");
   ПринтерPDF.SetValue("Device","jpeg");
   
   ПринтерPDF.WriteSettings();
   
   НастройкиПечатиОриентация    = 1;        // 1 - портерт, 2 - ландшафт.
   НастройкиПечатиМасштаб        = 100;        // масштаб в процентах.
   НастройкиПечатиРазложитьПоКопиям = 1;    // 0 - не разбирать по копиям, 1 - разобрать по копиям.
   
   НастройкиПечатиПолеЛев    = 10;
   НастройкиПечатиПолеПрав    = 10;
   НастройкиПечатиПолеВерх    = 10;
   НастройкиПечатиПолеНиз    = 10;
   
   НастройкиПечатиКолонтитулВерх    = 0;
   НастройкиПечатиКолонтитулНиз    = 0;
   
   НастройкиПечатиАвтомасштабПоШирине = 1; // 1 - включить, 0 - выключить.
   НастройкиПечатиЧерноБелаяПечать = 0; // 1 - включить, 0 - выключить.
   
   НастройкиПечатиИмяПринтера = "Bullzip PDF Printer"; // Имя принтера в ОС
   
   
   ТабличныйДокумент.ПараметрыСтраницы(НастройкиПечатиОриентация, НастройкиПечатиМасштаб, НастройкиПечатиРазложитьПоКопиям,
   НастройкиПечатиПолеЛев, НастройкиПечатиПолеПрав, НастройкиПечатиПолеВерх, НастройкиПечатиПолеНиз,
   НастройкиПечатиКолонтитулВерх, НастройкиПечатиКолонтитулНиз, НастройкиПечатиАвтомасштабПоШирине,
   НастройкиПечатиЧерноБелаяПечать, НастройкиПечатиИмяПринтера);

   ТабличныйДокумент.КоличествоЭкземпляров(1);
   ТабличныйДокумент.Напечатать(0);    
 
   СписокФайлов = СоздатьОбъект("СписокЗначений");
   ИмяВыходногоФайла = ФС.НайтиПервыйФайл(Путь + "\*.jpg");
   Пока ПустаяСтрока(ИмяВыходногоФайла) = 0 Цикл
       СписокФайлов.ДобавитьЗначение(Путь + "\" + ИмяВыходногоФайла);
       ИмяВыходногоФайла = ФС.НайтиСледующийФайл();
   КонецЦикла;
   
   Возврат СписокФайлов;
   
КонецФункции // глПечатьJPG
42 lomanos
 
19.01.12
12:33
(41) Спасибо за код. Есть какие-то подводные камни при настройке Bullzip и GSLite? А тут в (37) пугают.
43 Андрюха
 
19.01.12
12:40
(42) Нету, качаешь инсталлятор, Установить-Далее-Далее-Готово.
44 lomanos
 
19.01.12
14:19
(43) Спасибо большое.
45 1Сергей
 
19.01.12
14:27
(43) а он халявный?
46 lomanos
 
19.01.12
14:32
(45) Да, до 10 компов
Оптимист верит, что мы живем в лучшем из миров. Пессимист боится, что так оно и есть.