Всем здравствуйте. Помогите начинающему программисту реализовать пакетную печать этикеток в 1с 8.3 (конф. BAS 2.1.2.1).
В справочнике Номенклатура создана печатная форма размером 4,5х7 см. Количество позиций в справочнике - 700шт.
При выборе нескольких позиций на печать выходят этикетки одним столбиком. В целях экономии бумаги принято решение разместить по 18 этикеток на одном листе А4 (как раз размещаются на одном листе).
Листинг в модуле следующий
Процедура ПечатьЕтикетки(ТабДок, Ссылка) Экспорт
Макет = Справочники.Номенклатура.ПолучитьМакет("Печать етикетки");
Запрос = Новый Запрос;
Запрос.Текст =
"ВЫБРАТЬ
| Номенклатура.Артикул,
| Номенклатура.Код,
| Номенклатура.Комментарий,
| Номенклатура.Наименование
|ИЗ
| Справочник.Номенклатура КАК Номенклатура
|ГДЕ
| Номенклатура.Ссылка В (&Ссылка)";
Запрос.Параметры.Вставить("Ссылка", Ссылка);
Выборка = Запрос.Выполнить().Выбрать();
ПечОбл = Макет.ПолучитьОбласть("ПечОбл");
ТабДок.Очистить();
ВставлятьРазделительСтраниц = Ложь;
Пока Выборка.Следующий() Цикл
ПечОбл.Параметры.Заполнить(Выборка);
ТабДок.Вывести(ПечОбл, Выборка.Уровень());
ВставлятьРазделительСтраниц = Истина;
КонецЦикла;
КонецПроцедуры
Уже несколько дней пытаюсь найти решение - глухо. возможно кто то стыкался з подобным решением. Зарание спасибо
Сообщение отредактировал Vofka - 18.11.19, 21:47