Здравствуйте, нужно чтобы не печаталось сразу на принтер, а открывалась форма выбора принтеров на который надо напечатать.
Вот код, он печатает сразу на принтер, а как сделать, чтобы я мог выбрать принтер?
Вот код, он печатает сразу на принтер, а как сделать, чтобы я мог выбрать принтер?
Процедура ДействияФормыДействиеПечать(Кнопка)
перем Массив;
перем обьекты;
Массив = ЭтаФорма.ЭлементыФормы.Список.ВыделенныеСтроки;
Если Массив.Количество() = 0 Тогда
Возврат
КонецЕсли;
Для Каждого Элемент Из Массив Цикл
УниверсальныеМеханизмы.НапечататьДокументПоУмолчанию(Элемент.ПолучитьОбъект(),1,Истина);
КонецЦикла;
КонецПроцедуры // ДействиеПечать()
ПоказатьПо теме из базы знаний
- Вывод табличных документов в общую форму "Печать документов" (УФ)
- Вывод печатных форм с запросом данных в форму "Печать документов" из подсистемы БСП "Печать".
- Пакетная печать документов из конфигурации Бухгалтерский учет 7.7 (ред.4.5)
- Программный вывод на печать документов с факсимиле в 1С:Бухгалтерии 3.0 на примере акта сверки взаиморасчетов
- Упаковочный лист из документа Реализация товаров и услуг – УТ 11.5, КА 2.5, ЕРП 2.5
Найденные решения
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(8) из 1с нельзя открыть форму выбора принтера возможностями 1с, может и можно , но нужно программировать как то, вам ссылку показали
а так да, только вручную
а так да, только вручную
ВыборПринтеров.Очистить();// список значений
принтеры = Новый COMОбъект ("WScript.Network");
prn = принтеры.EnumPrinterConnections();
i = 0;
Пока i < prn.Count()-1 Цикл
ВыборПринтеров.Добавить(prn.Item(i+1));
i = i + 2;
КонецЦикла;
ЭтаФорма.ЭлементыФормы.Принтеры1.СписокВыбора = ВыборПринтеров;// загоняем в комбобокс Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот