0
sivsoft
18.02.14
✎
11:56
|
Доброго времени суток!
Написал обработку - печатает новую ТТН. Но при печати какой-то бред. Последнюю таблицу, хотя она легко помещается на предыдущей странице, печатает зачем-то на новой. В самой форме печати(без предпросмотра) видно, что никаких новых страниц быть не должно - линия пунктирная четко берет две таблицы в одну страницу, но что в предпросмотре, что в реальной печати дает дополнительную страницу.
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("ТаблицаБезБланка");
Таб.Очистить();
глУстПропись(Гривня);
КоличествоМестПрописью = СокрЛП(Формат(КоличествоМест, "ЧП"));
Всего = Формат(тзТТН.Итог("Сумма"),"Ч012.2");
ВсегоСумма = Формат(Всего, "Ч012.2")+" "+Гривня.Кратко;
СуммаПрописью = СокрЛП(Формат(Всего, "ЧПД"));
НДСВсего = тзТТН.Итог("НДС");
НДССумма = Формат(НДСВсего, "Ч012.2") + " " + Гривня.Кратко;
Таб.ВывестиСекцию("Шапка");
//переход на другую страницу
Таб.НоваяСтраница();
Таб.ВывестиСекцию("Заголовок");
тзТТН.ВыбратьСтроки();
Пока тзТТН.ПолучитьСтроку()=1 Цикл
Номер = тзТТН.НомерСтроки;
Товар = тзТТН.Товар;
Ед = тзТТН.Ед;
Кво = Формат(тзТТН.Кво, "Ч012.4");
Код = тзТТН.Код;
Цена = Формат(тзТТН.Цена, "Ч012.2");
Сумма = Формат(тзТТН.Сумма, "Ч012.2");
ПечДокумент = тзТТН.Документ;
Таб.ВывестиСекцию("Строка");
КонецЦикла;
КоличествоВсего = тзТТН.Итог("Кво");
Таб.ВывестиСекцию("Подвал");
Таб.Защита(Константа.ФлагЗащитыТаблиц);
Таб.ТолькоПросмотр(1);
Таб.Опции(0,0,,);
Таб.Показать("ПЕЧАТЬ: ТТН","");
Куда копать?
|
|
3
sivsoft
18.02.14
✎
12:27
|
(1)(2)
Так и надо. Страницы две - первая и оборотная. Делает все правильно по отношению к первой и второй, а вот третья чего появляется ума ни приложу. Причем таблицы маленькие - там их три можно поместить, а он разбивает - одну на второй странице, вторую на третью лепит.
|
|