Процедура была взята с интернета.
Процедура КнопкаВыполнитьНажатие(Кнопка) таб1 = Новый ТабличныйДокумент; таб1.Вывести(ПолучитьМакет("Макет1")); таб1.Показать(); таб2 = Новый ТабличныйДокумент; таб2.Вывести(ПолучитьМакет("Макет2")); таб2.Показать(); таб = Новый ТабличныйДокумент; выс = Макс(таб1.ВысотаТаблицы, таб2.ВысотаТаблицы); обл = ПолучитьМакет("Макет").ПолучитьОбласть("Область1|Область2"); обл1= таб1.ПолучитьОбласть(1,1, выс, таб1.ШиринаТаблицы); обл2= таб2.ПолучитьОбласть(1,1, выс, таб2.ШиринаТаблицы); таб.Вывести(обл1); таб.Присоединить(обл); таб.Присоединить(обл2); таб.Показать(); КонецПроцедуры
Комментариев нет:
Отправить комментарий