4
web1984
04.09.15
✎
21:09
|
Нашел решение.
ДокументОбщий = новый ТабличныйДокумент;
Документ1 = ЛюбаяФункцияПечатиВозвращающаяТабличныйДокумент();
ДокументОбщий .Вывести(Документ1 );
ДокументОбщий .ВывестиГоризонтальныйРазделительСтраниц();
Документ2 = ЛюбаяФункцияПечатиВозвращающаяТабличныйДокумент();
ЗадатьФорматСтрок(Документ2); //Новая процедура
ДокументОбщий .Вывести(Документ2 );
ДокументОбщий .ВывестиГоризонтальныйРазделительСтраниц();
ДокументОбщий .Показать();
///////////////////////////
Процедура ЗадатьФорматСтрок(прТаб)
лкКоличествоСтрок = прТаб.ВысотаТаблицы;
лкКоличествоКолонок = прТаб.ШиринаТаблицы;
лкШирина1 = "";
лкШирина2 = "";
лкСтрока1 = 0;
лкСтрока2 = 0;
Для лкСтр=1 По лкКоличествоСтрок Цикл
лкШирина2 = "";
Для лкКол=1 По лкКоличествоКолонок Цикл
лкШирина2 = лкШирина2 + "," + прТаб.Область(лкСтр,лкКол).ШиринаКолонки;
КонецЦикла;
Если лкШирина1 = лкШирина2 Тогда
лкСтрока2 = лкСтрока2 + 1;
Иначе
Если лкСтрока1 <> 0 Тогда
прТаб.Область(лкСтрока1,,лкСтрока2).СоздатьФорматСтрок();
КонецЕсли;
лкШирина1 = лкШирина2;
лкСтрока1 = лкСтр;
лкСтрока2 = лкСтр;
КонецЕсли;
КонецЦикла;
Если лкСтрока1 <> 0 Тогда
прТаб.Область(лкСтрока1,,лкСтрока2).СоздатьФорматСтрок();
КонецЕсли;
КонецПроцедуры
|
|