ТабДокумент.ПроверитьВывод() - Печает на половину страницы

1С v8

27.06.12

✎

15:18

Добрый день! Подскажите пожалуйста почему на печать выводиться половина заполненной страницы, далее ставиться РазделительСтраниц и снова заполняется только половина страницы?

Таб = Новый ТабличныйДокумент;
Таб.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
Таб.ЭкземпляровНаСтранице=1;
Макет = ПолучитьМакет("ПрайсЛистОбщийСет");
ОблШапкаНаСтранице = Макет.ПолучитьОбласть("ШапкаНаСтранице");
ОблСтрокаТЧ = Макет.ПолучитьОбласть("СтрокаТЧ");

МассивВыводимыхОбластей = Новый Массив;
ОблШапкаНаСтранице.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
МассивВыводимыхОбластей.Добавить(ОблШапкаНаСтранице);

Пока Результат.Следующий() Цикл

#Если НаКлиенте Тогда
ОбработкаПрерыванияПользователя();
#КонецЕсли
Если НЕ Таб.ПроверитьВывод(МассивВыводимыхОбластей) Тогда
МассивВыводимыхОбластей.Очистить();
Таб.ВывестиГоризонтальныйРазделительСтраниц();
Таб.Вывести(ОблШапкаНаСтранице);
МассивВыводимыхОбластей.Добавить(ОблШапкаНаСтранице);
КонецЕсли;

ОблСтрокаТЧ.Параметры.Заполнить(Результат);
Таб.Вывести(ОблСтрокаТЧ, Результат.Уровень());
МассивВыводимыхОбластей.Добавить(ОблСтрокаТЧ);

КонецЦикла;

Таб.Вывести(ОблПодвал);

Таб.ТолькоПросмотр = Истина;
Таб.Показать();

1 zett

27.06.12

✎

15:25

Может у кого-нибудь возникала такая проблема?

2 FIXXXL

27.06.12

✎

15:26

Шапка+строки точно влезают на один лист?

3 ssh2006

27.06.12

✎

15:29

Таб = Новый ТабличныйДокумент;
Таб.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
Таб.ЭкземпляровНаСтранице=1;
Макет = ПолучитьМакет("ПрайсЛистОбщийСет");
ОблШапкаНаСтранице = Макет.ПолучитьОбласть("ШапкаНаСтранице");
ОблСтрокаТЧ = Макет.ПолучитьОбласть("СтрокаТЧ");

ОблШапкаНаСтранице.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт;
//МассивВыводимыхОбластей.Добавить(ОблШапкаНаСтранице);
Таб.Вывести(ОблШапкаНаСтранице);

Пока Результат.Следующий() Цикл

#Если НаКлиенте Тогда

ОбработкаПрерыванияПользователя();
#КонецЕсли

ОблСтрокаТЧ.Параметры.Заполнить(Результат);

МассивВыводимыхОбластей = Новый Массив;
МассивВыводимыхОбластей.Добавить(ОблСтрокаТЧ);

Если НЕ Таб.ПроверитьВывод(МассивВыводимыхОбластей) Тогда
Таб.ВывестиГоризонтальныйРазделительСтраниц();
Таб.Вывести(ОблШапкаНаСтранице);
КонецЕсли;

Таб.Вывести(ОблСтрокаТЧ, Результат.Уровень());

КонецЦикла;

Таб.Вывести(ОблПодвал);

Таб.ТолькоПросмотр = Истина;
Таб.Показать();

4 zett

27.06.12

✎

15:39

Спасибо!!! Теперь все стало размещаться на весь лист!!!