Установка принтера по умолчанию в 1С 7.7.
Обработка может быть полезна в том случае, когда нужно установить принтер по умолчанию, а доступа к рабочему столу нет (например, терминальный режим без рабочего стола или remoteApp)
Платные
ВНИМАНИЕ:
Файлы из Базы знаний - это исходный код разработки.
Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы.
Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных.
Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
| Наименование |
Скачано |
Купить файл
(только для физ. лиц) |
По подписке PRO
|
|
Установка принтера по умолчанию 1С 7.7:
.ert 12,00Kb
|
4 |
1 850 руб.
Купить
|
1 SM
Скачать
|
Подписка
PRO — скачивайте любые файлы со
скидкой до 85% из Базы знаний за
2430 руб. в месяц
Оформите подписку на
компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкой
Поместите эту функцию в глобальный модуль и вызывайте из любого места.
Функция глУстановитьПринтерПоУмолчанию() Экспорт
Перем Нетворк;
Нетворк = СоздатьОбъект("WScript.Network");
Принтеры = Нетворк.EnumPrinterConnections();
спсПринтеры = СоздатьОбъект("СписокЗначений");
//спсПринтеры.ДобавитьЗначение(0, "Показать документ");
Для СчЦ=0 По Принтеры.length-1 Цикл
спсПринтеры.ДобавитьЗначение(Принтеры.Item(СчЦ + 1), "Распечатать "+Принтеры.Item(СчЦ + 1));
СчЦ=СчЦ+1;
КонецЦикла;
Устройство = 0;
Если спсПринтеры.ВыбратьЗначение(Устройство, , , 60,1)=1 Тогда
Нетворк.SetDefaultPrinter(Устройство);
КонецЕсли;
Возврат Устройство;
КонецФункции
Тестировалось на 7.70.027.
принтер 1С
