Если НЕ ФормированиеПечатныхФормСервер.ПроверитьВыводТабличногоДокумента(ТабДокумент, СтрокаСПодвалом) Тогда
Если КоличествоСтрок > 0 Тогда
// Вывод разделителя и заголовка таблицы на новой странице
ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();
ТабДокумент.Вывести(ОбластьМакетаЗаголовокТаблицы);
КонецЕсли;
Пока Не ВходитьНаСтраницу() Цикл
Масштаб=Масштаб-10;
КонецЦикла;
(2) Еще точнее нужно :) Разместить на 1 страницу без переноса что? Содержимое может быть произвольным, и как бы вы не уменьшали, все равно когда-то не войдет.
Требовать и эффективности, и гибкости от одной и той же программы — все равно, что искать очаровательную и скромную жену... по-видимому, нам следует остановиться на чем-то одном из двух. Фредерик Брукс-младший