помогите чайнику

Форум Программирование Общие вопросы программирования (Dev)

Платформа 1С v7.7

1. io 12.02.07 10:37 Сейчас в теме

Помогите, сама не могу справиться, необходимо чтобы документ выводил в печатную форму 5 столбцов (секций) по горизонтали и 7 по вертикали.
Спасибо за помощь.

Процедура Печать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.Опции(0,0,0,0);
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Таб.ВывестиСекцию("СтолбецПок|Строка");
Таб.ВывестиСекцию("СтолбецПроизв|Строка");
КонецЦикла;
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать Ценник","");
КонецПроцедуры

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. sashulyT 201 12.02.07 11:50 Сейчас в теме

Можно так:

Процедура Печать()
Таб = СоздатьОбъект("Таблица");
Таб.ИсходнаяТаблица("Печать");
Таб.Опции(0,0,0,0);
Кол = 1;
Стр = 1;
ВыбратьСтроки();
Пока ПолучитьСтроку() = 1 Цикл
Если Кол=6 тогда
стр = стр + 1;
кол = 1;
КонецЕсли;
Если стр= 8 тогда
Таб.Новаястраница();
стр = 1;
КонецЕсли;
Если Кол=1 тогда
Таб.ВывестиСекцию("СтолбецПок|Строка");
иначе
Таб.ПрисоеденитьСекцию("СтолбецПок|Строка");
Конецесли;
кол = кол + 1;
КонецЦикла;
Таб.ТолькоПросмотр(1);
Таб.Показать("Печать Ценник","");
КонецПроцедуры

Обрати внимание секция "СтолбецПок" - горизонтальная
"Строка" - вертикальная

3. io 12.02.07 13:38 Сейчас в теме

Огромное Вам спасибо!

Оставьте свое сообщение

E-mail: