Имя: Пароль:
1C
 
Как установить правильное число строк в печатной форме до разрыва страницы.
0 memogolik
 
26.11.14
18:09
Поменял ориентацию Торг12 с ландшафта на портрет (для экономии бумаги).
Печать идет в нормальной (портрет) ориентации, но при этом заполняется не весь лист. Т.е. из 2х листов текста он реально мог бы уместить на одном.
    Если НЕ ФормированиеПечатныхФорм.ПроверитьВыводТабличногоДокумента(ТабДокумент, СтрокаСПодвалом) Тогда

            Если КоличествоСтрок > 1 Тогда
                
                // Выводим итоги по странице
                ОбластьМакетаИтогоПоСтранице.Параметры.ИтогМестПоСтранице       = ИтогоМестНаСтранице;
                ОбластьМакетаИтогоПоСтранице.Параметры.ИтогКоличествоПоСтранице = ИтогоКоличествоНаСтранице;
                ОбластьМакетаИтогоПоСтранице.Параметры.ИтогСуммыПоСтранице      = ИтогоСуммаНаСтранице;
                ОбластьМакетаИтогоПоСтранице.Параметры.ИтогНДСПоСтранице        = ИтогоНДСНаСтранице;
                ОбластьМакетаИтогоПоСтранице.Параметры.ИтогСуммыСНДСПоСтранице  = ИтогоСуммаСНДСНаСтранице;
                ОбластьМакетаИтогоПоСтранице.Параметры.ИтогМассаБруттоПоСтранице= ИтогМассаБруттоПоСтранице;
                ТабДокумент.Вывести(ОбластьМакетаИтогоПоСтранице);
                
                ТабДокумент.ВывестиГоризонтальныйРазделительСтраниц();            
                
                // Очистим итоги по странице
                ИтогоМестНаСтранице       = 0;
                ИтогоКоличествоНаСтранице = 0;
                ИтогоСуммаНаСтранице      = 0;
                ИтогоНДСНаСтранице        = 0;
                ИтогоСуммаСНДСНаСтранице  = 0;
                ИтогМассаБруттоПоСтранице = 0;
                
                // Выведем заголовок таблицы
                НомерСтраницы = НомерСтраницы + 1;
                ОбластьМакетаЗаголовокТаблицы.Параметры.НомерСтраницы = "Страница " + НомерСтраницы;
                ТабДокумент.Вывести(ОбластьМакетаЗаголовокТаблицы);
                
            КонецЕсли;

тут он проверяет, но я не могу понять что реально можно подправить, чтобы решить проблему.

Функция ПроверитьВыводТабличногоДокумента(ТабДокумент, ВыводимыеОбласти, РезультатПриОшибке = Истина) Экспорт

    Попытка
        Возврат ТабДокумент.ПроверитьВывод(ВыводимыеОбласти);
    Исключение
        Возврат РезультатПриОшибке;
    КонецПопытки;

КонецФункции // ПроверитьВыводТабличногоДокумента()
Заранее спасибо за ответы.
1 memogolik
 
26.11.14
18:25
ап