К списку форумов К списку тем
Регистрация    Правила    Главная форума    Поиск   
Имя: Пароль:
Рекомендовать в новости

Программное открытие окна очереди печати принтера

bvb
0 - 20.05.2013 - 11:03
Как программно открыть окно очереди печати принтера с помощью ScriptControl. В качестве параметра - строка с наименованием принтера.


1 - 20.05.2013 - 12:36
открыть или развернуть? ибо если принтер не локальный, то думаю никак. как развернуть впрочем тоже не знаю :-)))
Гость
2 - 20.05.2013 - 13:16
0-bvb > Придется допустить юзера до системной папки %systemroot%\system32\spool\printers\...
Гость
3 - 20.05.2013 - 13:21
Собсно...
Const PRINTHOOD = &H1b&
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(PRINTHOOD)
Set objFolderItem = objFolder.Self
Wscript.Echo objFolderItem.Path
Set colItems = objFolder.Items
For Each objItem in colItems
Wscript.Echo objItem.Name
Next
bvb
4 - 21.05.2013 - 10:21
scrptCtrl = Новый COMОбъект("MSScriptControl.ScriptControl");
scrptCtrl.language="vbscript";
scrptCtrl.addcode("
|Function OpenSpool(NamePrinter)
|Set objShell = CreateObject(""Shell.Application"")
|Set objFolder = objShell.Namespace(NamePrinter)
|Set objFolderItem = objFolder.Self
|Wscript.Echo objFolderItem.Path
|Set colItems = objFolder.Items
|For Each objItem in colItems
|Wscript.Echo objItem.Name
|Next
|End Function");

scrptCtrl.run("OpenSpool", "\\ars-srv01\Kyocera FS-3920DN4");

пишет :
Произошла исключительная ситуация (Ошибка выполнения Microsoft VBScript): Требуется объект: 'objFolder'

Что я делаю не так с параметром ?
Гость
5 - 21.05.2013 - 11:57
(0)
ИмяПринтераКакВСистеме = СписокПринтеров.ПолучитьЗначение(СписокПринтеров.Т екущаяСтрока());
whs = СоздатьОбъект("WScript.Shell");
//whs.Run("cmd.exe /c rundll32 printui.dll,PrintUIEntry /e /n """+СокрЛП(ИмяПринтераКакВСистеме)+"""",0,1);
whs.Run("cmd.exe /c rundll32 printui.dll,PrintUIEntry /o /n """+СокрЛП(ИмяПринтераКакВСистеме)+"""",0,1);
bvb
6 - 21.05.2013 - 13:14
(5) Вот это мне больше нравится. Спасибо.


К списку вопросов
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск




Copyright ©, Все права защищены