Имя: Пароль:
1C
1C 7.7
v7: программно печать PDF и автосохранение.
0 6aToH
 
06.08.12
08:24
Сразу скажу сильно не пинайте, так и не могу его автоматом отпечатать.
Есть принтер

PDFCreator
Win2PDF

как им задать параметры????
чет я туплю???

1с v.7


   PDFCreator = СоздатьОбъект("PDFCreator.clsPDFCreator");
   PDFCreator.cStart("/NoProcessingAtStartup");
   
   PDFOptions = PDFCreator.cOptions();
       PDFOptions.UseAutosave = 1;
   PDFOptions.UseAutosaveDirectory = 1;
   PDFOptions.AutosaveDirectory = "C:\";
   PDFOptions.AutosaveFilename = "имя_файла";
   PDFOptions.AutosaveFormat = 0;
   DefaultPrinter = PDFCreator.cDefaultPrinter;
   PDFCreator.cDefaultPrinter = "PDFCreator";
   PDFCreator.cClearCache();
   PDFCreator.cPrinterStop = 0;
   PDFCreator.cOptions=PDFOptions; // на этой строчке жалуется Метод не найден
   
       Таб.Напечатать(0);

что я делаю не так?
1 6aToH
 
06.08.12
08:25
скиньте код кто-нибудь плиз
на PDFCreator или Win2PDF
как примерчик для 7 там разберусь.
2 Balabass
 
06.08.12
08:27
Ну значит нет метода cOption у PDFCreator.
PDFCreator.clsPDFCreator -это разве не команда очистки?
3 Balabass
 
06.08.12
08:28
Разве не так нужно?
PDFCreator = СоздатьОбъект("PDFCreator")
4 6aToH
 
06.08.12
08:36
(3)
Так он сразу ругается.
5 6aToH
 
06.08.12
08:44
О получилось
6 6aToH
 
06.08.12
08:44
сек
7 6aToH
 
06.08.12
08:45
там вот так надо было:

 PDFCreator2 = СоздатьОбъект("PDFCreator.clsPDFCreatorOptions");
8 6aToH
 
06.08.12
08:46
Только пока он сохранил в МоиДокументы!
9 6aToH
 
06.08.12
08:48
нихера не получилось!!!!
10 6aToH
 
06.08.12
09:16
аууу
помогите!
11 Андрюха
 
06.08.12
09:18
я Bullzip использую
12 6aToH
 
06.08.12
09:19
дай код Bullzip-а плиз
13 Андрюха
 
06.08.12
09:25
Попытка
   Принтер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);
14 Андрюха
 
06.08.12
09:27
Вот тут подробно v8: Сохранить макет в JPG
15 Андрюха
 
06.08.12
09:37
Если в pdf выводится только текстовая информация, то можно без всяких виртуальных принтеров конвернтуть вот этим http://infostart.ru/public/138406/
16 Ёпрст
 
06.08.12
09:39
Или.. сохранять в пдф Йокселем
17 Андрюха
 
06.08.12
09:49
(16) Йоксель джипеги в пдф засунет, а 15 - текст.
18 6aToH
 
06.08.12
10:08
у Bullzip-а 10 копий только бесплатных
Это не есть гуд!
19 Джон Тирби
 
06.08.12
10:10
Bullzip  работает ноу проблем...каждый день по 100-200 в фоне тянет заказы с интернет магазина, формирует ПДФ и шлет клиентам.
20 DenLaDen
 
06.08.12
10:19

Реестр =
   "REGEDIT4
   |
   |[HKEY_CURRENT_USER\Software\PDFCreator\Program]
   |""AutosaveDirectory""=""" + СтрПуть + """
   |""LastsaveDirectory""=""<MyFiles>\\""
   |""Language""=""russian""
   |""AutosaveFilename""=""" + имя_ф + """
   |""ShowAnimation""=""0""
   |""UseAutosave""=""1""
   |""UseAutosaveDirectory""=""1""";

   РегФайл = СоздатьОбъект( "Текст" );
   РегФайл.ДобавитьСтроку ( Реестр );
   РегФайл.Записать( КаталогПользователя() + "pdfprinter.reg" );
   
   КомандаСистемы( "start /wait regedit.exe /s """ + КаталогПользователя() + "pdfprinter.reg""" );    
   
   Таб.ПараметрыСтраницы( ,,,,,,,,,,, "PDFPrinter" );
   Таб.Напечатать( 0 );
21 6aToH
 
06.08.12
12:20
(19) я имею ввиду только на 10 компов бесплатно можно поставить.
22 6aToH
 
06.08.12
13:47
Так не у кого PDFCreator не стоит что-ль в автомате?
23 Ёпрст
 
06.08.12
13:48
на инфопомойке полна коробка готовых решений.
24 6aToH
 
07.08.12
07:30
Андрюха спс.
Bullzip работает.
в имени файла указать полный путь и норм.
Но вот только одно большое "НО" есть:
У него только 10 лицензий бесплатно, а так платный.

может все же кто подскажет как с PDFCreator?

а если в tif ?

а microsoft office Document image writer nfrjt vj;tn cltkfnm&
25 Андрюха
 
07.08.12
07:42
Можно в JPEG с помощью Йоксель
26 DenLaDen
 
07.08.12
11:18
(24) а чем (20) неустраивает? Это кусок из 7.7.
27 6aToH
 
07.08.12
14:06
(26) Пользователи не могут править реестр.
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс