Имя: Пароль:
1C
1С v8
Выбор списка принтеров при печати из комплекта печати
0 Rusf1n
 
21.12.17
11:27
Добрый день! Есть комплект печати, так вот при нажатии на кнопку "Печать", происходит автоматическая печать на установлденный по умолчанию принтер. Как можно вывести список принтеров, выбрать и чтобы по нему печатался?
1 Tatitutu
 
21.12.17
11:41
ВыборПринтеров=Новый СписокЗначений;
    принтеры =  Новый COMОбъект ("WScript.Network");
    prn =  принтеры.EnumPrinterConnections();
    i = 0;
    Пока i < prn.Count()-1 Цикл
        ВыборПринтеров.Добавить(prn.Item(i+1));
        i = i + 2;
    КонецЦикла;        
    НашПринтер=ВыборПринтеров.ВыбратьЭлемент("Выберите ПРИНТЕР для печати документов и отчетов");    
    Если НашПринтер=Неопределено Тогда                                              
        
    Иначе
        ПритерПоУмолчанию=НашПринтер;    
    КонецЕсли;