Разбивает страницу на 2

Новая тема
Подскажите.При печати Расходной накладной разрывает ее на 2 части(часть которая находится в Подвале выводит на вторую страицу), как это можно изменить?И еще не выводит номер доверенности, хотя выражение вроде правильное.
Какая версия 1С?
Приведи выражение.
"7.7
Процедура Сформировать()
Контрагент.ИспользоватьДату(ДатаДок);
Фирма.ИспользоватьДату(ДатаДок);
Таб=СоздатьОбъект("Таблица");  
Если Константа.ПечататьБланки=Да Тогда
Таб.ИсходнаяТаблица(""""+КаталогБазыДанных()+"\TABLE\RasNaklB.mxl");
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
Ном=0;
Пока ПолучитьСтроку() = 1 do
Ном=Ном+1;
Если Ном=17 Тогда
   Таб.НоваяСтраница();
   Таб.ВывестиСекцию("НачалоСтр2");
КонецЕсли;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
Пока Ном<48 Цикл
Ном=Ном+1;
Если Ном=17 Тогда
   Таб.НоваяСтраница();
КонецЕсли;
КонецЦикла;

Таб.ВывестиСекцию("Подвал");
Таб.ПараметрыСтраницы(2,,,0,0,0,0,,,);
Иначе
Таб.ИсходнаяТаблица(""""+КаталогБазыДанных()+"\TABLE\RasNakl.mxl");
Таб.ВывестиСекцию("Шапка");
ВыбратьСтроки();
Ном=0;
Пока ПолучитьСтроку() = 1 do
Ном=Ном+1;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
   Если Отгрузил.Вид()="Склады" Тогда
       Выдал = Название(Отгрузил.МОЛ.Получить(ДатаДок));
   Иначе
    Выдал = Название(Отгрузил);
   КонецЕсли;
   Если (СтрДлина(СокрЛП(ДоверенностьНомер))>0) И (ДоверенностьДата<>"  .  .  ") Тогда
       ПоПоручению = "За доруч. №"+СокрЛП(ДоверенностьНомер)+" вiд "+?(ДатаЧисло(ДоверенностьДата)<10,"0","""")+Формат(ДоверенностьДата ,"Д ДДММММГГГГ");
   Иначе
    ПоПоручению = "За доруч. №             вiд" ;
   КонецЕсли;
   
Таб.ВывестиСекцию("Подвал");
КонецЕсли;
Таб.Опции(0,0,0,0,);
Таб.Защита(Константа.ФлагЗащитыОтчетов);
Таб.ТолькоПросмотр(Константа.ФлагРедактированияОтчетов);
Таб.Показать("Накладна на реалiзацiю","""");
КонецПроцедуры    "
"Интересный код.
В случае когда печатаете бланки, после Шапки + 17 строк создается новая страница. Вот только кусок
> Пока Ном<48 Цикл
> Ном=Ном+1;
> Если Ном=17 Тогда
>    Таб.НоваяСтраница();
> КонецЕсли;
> КонецЦикла;
Не понятен. Согласно ему - новую страницу надо создать обязательно, если Ном<48, но зачем цикл? Видимо забыли написать "Таб.ВывестиСекцию("Строка");" чтобы вывести еще 31 строку до Подвала.

В случае иначе - страница программно не создается.
Возможен случай, когда в RasNaklB (или RasNakl) вставлен "Перевод страницы""
Читают тему
(гостей: 1)

Быстрый переход