среда, 12 декабря 2018 г.

Печать на сетевом принтере без диалога печати

Одно из решений : https://infostart.ru/public/84163/

Надо к имени принтера добавить в конце слэш
Вместо Т.Напечатать(0);
Надо написать:
Рег = СоздатьОбъект("РеестрWin");
Рег.ОткрытьКлюч("HKEY_CURRENT_USER","Software\1C\1Cv7\7.7\_НОВАЯ БАЗА\V7\" + ИмяПользователя + "\Moxel\Default","KEY_READ");
ИмяПринтера = "";
Рег.ЗапроситьЗначение("DefaultPrinter",ИмяПринтера);

Т = СоздатьОбъект("Таблица");
Т.ВывестиСекцию("Шапка");
Т.ПараметрыСтраницы(,,,,,,,,,,,ИмяПринтера + "\");
Т.Напечатать(0);

Комментариев нет: