0
Anton 11
29.12.17
✎
16:52
|
Всем привет. В 1с 7.7 формируются файлы pdf через виртуальный принтер bullzip. Есть одна проблема: так как на сервере развернут сервер терминалов, то при создании файла снизу файла pdf добавляет строку TRIAL MODE - Click here for more information.На оф. сайте так и прописано что это сообщение выводится когда виртуальный принтер на сервере терминалов. Но заметил, что добавляет у всех пользователей, кроме того, с которого устанавливал bullzip на сервере. Есть идейки как это обойти, чтобы надписи снизу не было? Может кто сталкивался? Может поможет установка bullzip на каждый клиентский комп, ведь по rdp видно подключенные принтеры клиентского компа.
|
|
1
Anton 11
29.12.17
✎
16:53
|
код примерно такой:
Попытка
ПринтерPDF = СоздатьОбъект("Bullzip.PDFPrinterSettings");
Исключение
Предупреждение("Не установлен PDF принтер!");
Возврат;
КонецПопытки;
Принтер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.WriteSettings();
НастройкиПечатиОриентация = 1; // 1 - портерт, 2 - ландшафт.
НастройкиПечатиМасштаб = 100; // масштаб в процентах.
НастройкиПечатиРазложитьПоКопиям = 1; // 0 - не разбирать по копиям, 1 - разобрать по копиям.
НастройкиПечатиПолеЛев = 10;
НастройкиПечатиПолеПрав = 10;
НастройкиПечатиПолеВерх = 10;
НастройкиПечатиПолеНиз = 10;
НастройкиПечатиКолонтитулВерх = 0;
НастройкиПечатиКолонтитулНиз = 0;
НастройкиПечатиАвтомасштабПоШирине = 1;// 1 - включить, 0 - выключить.
НастройкиПечатиЧерноБелаяПечать = 0;// 1 - включить, 0 - выключить.
НастройкиПечатиИмяПринтера = "Bullzip PDF Printer";// Имя принтера в ОС
Таб.ПараметрыСтраницы(НастройкиПечатиОриентация, НастройкиПечатиМасштаб, НастройкиПечатиРазложитьПоКопиям,
НастройкиПечатиПолеЛев, НастройкиПечатиПолеПрав, НастройкиПечатиПолеВерх, НастройкиПечатиПолеНиз,
НастройкиПечатиКолонтитулВерх, НастройкиПечатиКолонтитулНиз, НастройкиПечатиАвтомасштабПоШирине,
НастройкиПечатиЧерноБелаяПечать, НастройкиПечатиИмяПринтера);
Таб.Напечатать(0);
|
|