gifts2017

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

Опубликовал Дмитрий (adamx) в раздел Администрирование - Системное

Надо к имени принтера добавить в конце слэш

Вместо Т.Напечатать(0);

Надо написать:

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

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

См. также

Подписаться Добавить вознаграждение

Комментарии

1. Артур Аюханов (artbear) 16.04.11 08:31
Баян известен лет 10, не меньше.
И он не поможет, если юзается Длиннннннннное имя принтера :(
2. Саша (Хряк) 16.04.11 18:37
Рег = СоздатьОбъект("РеестрWin");

щто ето?
3. Дмитрий (adamx) 18.04.11 12:10
1с++

У меня длинное имя принтера работает. \\station-77\HP LaserJet 1200 PCL 6
4. Альтаир (Altair777) 18.04.11 14:54
Минус за Рег.ОткрытьКлюч("HKEY_CURRENT_USER","Software\1C\1Cv7\7.7\_НОВАЯ БАЗА\V7\" + ИмяПользователя + "\Moxel\Default","KEY_READ");
1) сначала надо в HKEY_CURRENT_USER\Software\1C\1Cv7\7.7\Titles найти ключ с именем КаталогИБ() и подставить его значение вместо _НОВАЯ БАЗА
2) на коленке написано "ИмяПользователя"? Где круглые скобки?

3) ключа "DefaultPrinter" может и не быть
5. Ийон Тихий (cool.vlad4) 18.04.11 15:13
6. Дмитрий (adamx) 20.04.11 07:27
to 4: Согласен - описал общий принцип.
Детали, я думал, можно самим сделать.
7. Альтаир (Altair777) 20.04.11 10:26
(4)
adamx пишет:
Детали, я думал, можно самим сделать

эти детали - оставшаяся половина нормальной разработки
поэтому и минус
8. Сергей (Che) Коцюра (CheBurator) 21.04.11 01:32
плохое решение. наличие слэша на конце имени принтера приводит к различного рода непоняткам с принтером в разных режимах. трахался долго, пока это выяснил, а ведь слэш добавил-то - можно сказать по ошибке...
Для написания сообщения необходимо авторизоваться
Прикрепить файл
Дополнительные параметры ответа