Печать Табличных Документов на Матричном принтере
Задачи пользователя - Пакетная печать
Файлы
ВНИМАНИЕ: Файлы из Базы знаний - это исходный код разработки. Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы. Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных. Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
Подписка PRO — скачивайте любые файлы со скидкой до 85% из Базы знаний
Оформите подписку на компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкойВы можете заказать платную доработку или адаптацию этой разработки под вашу конфигурацию на «Бирже заказов».
- 0% комиссии — оплата напрямую исполнителю;
- Исполнители любого масштаба — от отдельных специалистов до команд под проект;
- Прямой обмен контактами между заказчиком и исполнителем;
- Безопасная сделка — при необходимости;
- Рейтинги, кейсы и прозрачная система откликов.
Ногами не пинать: Инженерный образец грубого уровня для перехода с БЭСТ.
Использование в печатных формах:
[code]
Процедура ПечатьНаМатриксТекТабДок()
тд=новый ТабличныйДокумент;
во = ВнешниеОбработки.Создать("c:\1cf\mxl2txt.epf");
тд.вывести(пТабДокумент);
ВО.ТабДокумент=тд ;
во.просмотр=ПредПросмотр;
во.числокопий=1;
ВО.ПолучитьФорму().Открыть();
КонецПроцедуры
[/code]
Требует добавления в конфигурацию
настройки пользователя
"ПутьКПринтеруМатр"
типа строка, где указан путь к принтеру а-ля \\oper-002\EpsonLX-2
или замены
ПутьКПринтеруМатр=...
на
ПутьКПринтеруМатр="\\oper-002\EpsonLX-2"
для печати обработка выполняет команду copy
[code]
ПутьКПринтеруМатр=управлениеПользователями.ПолучитьЗначениеПоУмолчанию(глЗначениеПеременной("глТекущийПользователь"), "ПутьКПринтеруМатр");
ЧислоКопий=?(ЧислоКопий=0,1,ЧислоКопий);
Для а=1 По ЧислоКопий Цикл
КомандаСистемы("copy "+ФTXT+" "+ПутьКПринтеруМатр);
КонецЦикла;
[/code]
Догадываюсь, что подобный велосипед уже существует в виде текстовых шаблонов,
но у кого в 2 ночи есть сорцы обработки многострочных ячеек...
Вступайте в нашу телеграмм-группу Инфостарт