Имя: Пароль:
1C
1С v8
Посчитать количество страниц на печать
0 serg-lom89
 
26.09.16
14:53
ДОбрый день
Есть справочники Доп. Печ формы.
Первая форма печ. выводит с приложение ТТН.
Вторая форма печ. выводит без приложения.(товарную часть с наименованием ,ценой ,количеством ).
и в первой надо определить и прописать сколько страниц напечатает на
второй форме?
как решить данный вопрос?
думал сделать кастыль такой

        ИмяМакета = Справочники.ДополнительныеПечатныеФормы.НайтиПоНаименованию("ТТН Без приложения 2009 возврат поставщику");
        ИмяФайла = КаталогВременныхФайлов()+"PrnForm.tmp";
        ОбъектВнешнейФормы = ИмяМакета.ПолучитьОбъект();
        Если ОбъектВнешнейФормы <> Неопределено Тогда
            
            ДвоичныеДанные = ОбъектВнешнейФормы.ХранилищеВнешнейОбработки.Получить();
            ДвоичныеДанные.Записать(ИмяФайла);
            Обработка = ВнешниеОбработки.Создать(ИмяФайла);
            Обработка.СсылкаНаОбъект = СсылкаНаОбъект;
            Попытка
                ТабДокумент = Обработка.Печать();
                ВсегоСтраниц =  ТабДокумент.количествоСтраниц();
            исключение
            КонецПопытки;
        КонецЕсли;

когда открываешь как  внешнюю печ форму,все вроде ок.печатает.Когда уже в документе выбираешь печ форму,тогда виснет все.ЧЯДНТ?
1 serg-lom89
 
26.09.16
14:56
ВсегоСтраниц =  ТабДокумент.количествоСтраниц();
считает все верно.Но чего так тупит?
2 serg-lom89
 
26.09.16
15:05
никто не сталкивался как посчитать колво страниц?
Компьютеры — это как велосипед. Только для нашего сознания. Стив Джобс