v7: Как получить заголовок печатной формы?
☑
0
Подводный Таракан
18.10.12
✎
10:48
Задача следующая - есть сформированная печатная форма с заголовком к примеру "123456_Иванов.ИИ_ТД"
Далее по кнопке в интерфейсе делаю открытие обработки:
Процедура ПриОткрытии()
перем сервис;
перем Таб1;
Перем Ширина,Высота;
статусвозврата(0);
загрузитьвнешнююкомпоненту(каталогиб() + "FormEx.dll");
ЗагрузитьВнешнююКомпоненту(КаталогИБ()+"SpreadSheet.dll");
сервис = создатьобъект("Сервис");
если сервис.АктивныйКонтекст(Таб1) = 0 тогда
возврат;
конецесли;
если не(типзначениястр(Таб1) = "Таблица") тогда
возврат;
конецесли;
Таб = СоздатьОбъект ("ТабличныйДокумент");
Таб.ЗагрузитьИзТаблицы(Таб1);
обл=Таб.Область(1,1,Таб.ВысотаТаблицы(),Таб.ШиринаТаблицы());
обл.РассчитатьРазмеры(Ширина,Высота);
Конвертер = СоздатьОбъект ("Йоксель.ГрафическийКонвертер.PDF");
Конвертер.ВысотаСтраницы = Высота + 210;// * 20 +210 ;
Конвертер.ШиринаСтраницы = Ширина + 210;// * 105 +210 ;
Конвертер.КоличествоБитНаПиксел = 24;
Конвертер.Документ = Таб;
Конвертер.ПолеСлева = 100;
Конвертер.ПолеСверху = 100;
Конвертер.ПолеСправа = 100;
Конвертер.ПолеСнизу = 100;
Конвертер.ЗаписатьВФайл ("C:\123\"+ИмяТаб+".pdf");
КонецПроцедуры
как в этой процедуре получить ИмяТаб="123456_Иванов.ИИ_ТД" ?
1
Подводный Таракан
18.10.12
✎
16:06
ап
2
Wobland
18.10.12
✎
16:07
имхо никак
3
aka MIK
18.10.12
✎
16:11
(0)
списоктаблиц = Сервис.списоктаблиц();
Ном = списоктаблиц.найтизначение(Таб);
если Ном <> 0 тогда
списоктаблиц.получитьзначение(Ном,ИмяФайла);
4
aka MIK
18.10.12
✎
16:12
(0) А что, нормально конвертит? Дашь итоговую обработку
5
Подводный Таракан
18.10.12
✎
16:16
(4) да вроде нормально, а итоговая обработка вся в коде и содержится в принципе
6
Подводный Таракан
18.10.12
✎
16:30
(3) спасибо, все работает
7
Злопчинский
18.10.12
✎
21:20
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс