9.2
9.2. Печать этикетки для грузомест
При наличии нескольких подключенных принтеров возникает проблема печати этикеток. Так как 1с (в ут 10.3) запоминает только не время сеанса на какой принтер должен быть напечатан текущий макет. Поэтому решение данной проблемы прописать прямо в коде для некоторых макетов на какой именно принтер должна быть напечатана этикетка.
В данном случае имя принтера вынесено в константы что бы оператора мог самостоятельно выбрать принтер этикеток.
Таб = Новый ТабличныйДокумент;
Таб.Очистить();
Таб.ИмяПринтера = СокрЛП(Константы.ИмяПринтераСтикеров.Получить());
Таб.РазмерСтраницы="Custom";//нестандартный размер
Макет = ПолучитьМакет("СтикерДоставка");
Таб.ВысотаСтраницы = 58;
Таб.ШиринаСтраницы = 56;
Если КоличествоСтикеров = 0 Тогда
КолСтикеров = 1;
Иначе
КолСтикеров = КоличествоСтикеров;
КонецЕсли;
ОбластьПросмотр = Макет.ПолучитьОбласть("Простор");
ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьСтрока = Макет.ПолучитьОбласть("Строка");
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
Для Сч = 1 По КолСтикеров Цикл
ОбластьШапка.Параметры.Фирма = "Отправитель: "+Справочники.Организации.НайтиПоКоду("000000001");
Таб.Вывести(ОбластьШапка);
ОбластьСтрока.Параметры.Клиент = Док.Контрагент;
ОбластьСтрока.Параметры.тМесто = "МЕСТО № " + (Сч)+" из "+КолСтикеров;
ОбластьСтрока.Параметры.Сборщик = Док.Упаковшик;
//ОбластьСтрока.Параметры.Контролер = Док.Контролер;
ОбластьПодвал.Параметры.НомерДок = Док.Номер;
ОбластьПодвал.Параметры.ДатаДок = Формат( Док.Дата, "ДЛФ=Д");
Таб.Вывести(ОбластьСтрока);
Таб.Вывести(ОбластьПодвал);
Если Сч < КолСтикеров Тогда
Таб.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;
КонецЦикла;
Таб.ОтображатьГруппировки = Ложь;
Таб.ОтображатьЗаголовки = Ложь;
Таб.ОтображатьСетку = Ложь;
Пользователь = ПараметрыСеанса.ТекущийПользователь;
Таб.РазмерСтраницы="Custom";
Таб.ВысотаСтраницы=58;
Таб.ШиринаСтраницы=56;
Таб.ПолеСверху = 0;
Таб.ПолеСлева = 0;
Таб.ПолеСнизу = 0;
Таб.ПолеСправа = 0;
Таб.РазмерКолонтитулаСверху = 0;
Таб.РазмерКолонтитулаСнизу = 0;
Таб.АвтоМасштаб = Истина;
Таб.ОриентацияСтраницы = ОриентацияСтраницы.Портрет;
Таб.Показать("Стикер на доставку",);
Похожая задача?
Расскажите, что у вас происходит — предложим план.