|
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
|
|
|
Глупец, лишенный способности посмеяться над собой вместе с другими, не сможет долго выносить программирование. Фредерик Брукс-младший