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