Заказы на доработку 1С (сервис удаленной работы)

Хранилище

База знаний
Бесплатные отчеты, обработки, конфигурации, внешние компоненты для 1С Статьи, описание работы, методики по работе с 1С

Здравствуйте, гость ( Войти | Зарегистрироваться )




>  Размещение 18 этикеток на листе формата А4
medchuk
Отправлено: 19.11.19, 17:35


Молчаливый
*

Группа: Пользователи
Сообщений: 2
Регистрация: 24.10.19
Пользователь №: 67155


fly @ Вчера, 19:04 * ,
Исходя из Вашего совета решил ситуацию подобным образом. Было решение заодно задать параметры страницы и сменить из 18 этикеток на 16, так как не совсем корректно размещались на странице.
Делюсь результатом. Возможно кому то пригодится.
Процедура ПечатьЕтикетки(ТабДок, Ссылка) Экспорт
    Макет = Справочники.Номенклатура.ПолучитьМакет("Етикетка");
    Колонка = 1;
    Строка = 1;
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    Номенклатура.Артикул,
    |    Номенклатура.Вес,
    |    Номенклатура.Комментарий,
    |    Номенклатура.Код,
    |    Номенклатура.НаименованиеПолное
    |ИЗ
    |    Справочник.Номенклатура КАК Номенклатура
    |ГДЕ
    |    Номенклатура.Ссылка В (&Ссылка)";
    
    Запрос.Параметры.Вставить("Ссылка", Ссылка);
    Выборка = Запрос.Выполнить().Выбрать();
    
    ПечОбл = Макет.ПолучитьОбласть("ПечОбл");
    ТабДок.Очистить();

    Пока Выборка.Следующий() Цикл
                        
        ПечОбл.Параметры.Заполнить(Выборка);    
        
    Если Колонка = 1 Тогда
        ТабДок.Вывести(ПечОбл);
        Иначе ТабДок.Присоединить(ПечОбл)
        КонецЕсли;
        Колонка = Колонка +1;
        
    Если Колонка > 4 Тогда
        Колонка = 1;
        Строка= Строка+1;
    КонецЕсли;
    
    Если Строка = 5 Тогда
        ТабДок.ВывестиГоризонтальныйРазделительСтраниц()
    КонецЕсли;
    
    Если Строка > 4 Тогда
        Строка = 1;
    КонецЕсли;
КонецЦикла;

    ТабДок.ОриентацияСтраницы = ОриентацияСтраницы.Ландшафт;
    ТабДок.ПолеСлева = 5;
    ТабДок.ПолеСправа = 5;
    ТабДок.ПолеСверху = 5;
    ТабДок.ПолеСнизу = 5;
КонецПроцедуры


  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #157699 · Ответов: 2 · Просмотров: 1392
 

>  Размещение 18 этикеток на листе формата А4
medchuk
Отправлено: 18.11.19, 18:13


Молчаливый
*

Группа: Пользователи
Сообщений: 2
Регистрация: 24.10.19
Пользователь №: 67155


Всем здравствуйте. Помогите начинающему программисту реализовать пакетную печать этикеток в 1с 8.3 (конф. BAS 2.1.2.1).
В справочнике Номенклатура создана печатная форма размером 4,5х7 см. Количество позиций в справочнике - 700шт.
При выборе нескольких позиций на печать выходят этикетки одним столбиком. В целях экономии бумаги принято решение разместить по 18 этикеток на одном листе А4 (как раз размещаются на одном листе).
Листинг в модуле следующий

Процедура ПечатьЕтикетки(ТабДок, Ссылка) Экспорт

    Макет = Справочники.Номенклатура.ПолучитьМакет("Печать етикетки");
    Запрос = Новый Запрос;
    Запрос.Текст =
    "ВЫБРАТЬ
    |    Номенклатура.Артикул,
    |    Номенклатура.Код,
    |    Номенклатура.Комментарий,
    |    Номенклатура.Наименование
    |ИЗ
    |    Справочник.Номенклатура КАК Номенклатура
    |ГДЕ
    |    Номенклатура.Ссылка В (&Ссылка)";
    
    Запрос.Параметры.Вставить("Ссылка", Ссылка);
    Выборка = Запрос.Выполнить().Выбрать();

    ПечОбл = Макет.ПолучитьОбласть("ПечОбл");
    
    ТабДок.Очистить();

    ВставлятьРазделительСтраниц = Ложь;
    Пока Выборка.Следующий() Цикл        
            ПечОбл.Параметры.Заполнить(Выборка);
        ТабДок.Вывести(ПечОбл, Выборка.Уровень());
        ВставлятьРазделительСтраниц = Истина;
    КонецЦикла;
КонецПроцедуры


Уже несколько дней пытаюсь найти решение - глухо. возможно кто то стыкался з подобным решением. Зарание спасибо


 ! 

Правила: 4, 5
 
  Форум: Программирование в 1С Предприятие 8.3 · Просмотр сообщения: #157663 · Ответов: 2 · Просмотров: 1392
 


Новые сообщения  Открытая тема (есть новые ответы)
Опрос  Опрос (есть новые голоса)
Нет новых сообщений  Открытая тема (нет новых ответов)
Нет новых голосов  Опрос (нет новых голосов)
Популярная тема  Горячая тема (есть новые ответы)
Закрыта  Закрытая тема
Нет новых  Горячая тема (нет новых ответов) Перемещена  Тема перемещена
 

RSS Текстовая версия Сейчас: 28.03.24, 15:21
1С Предприятие 8.3, 1С Предприятие 8.2, 1С Предприятие 8.1, 1С Предприятие 8.0, 1С Предприятие 7.7, Литература 1С, Общие вопросы по администрированию 1С, Методическая поддержка 1С - всё в одном месте: на Украинском 1С форуме!