NeSViT:
Нашел в интернете следующее решение.
Евгений, спасибо вам большое!
Код:
Нашел в интернете следующее решение.
Евгений, спасибо вам большое!
Код:
| Set Shell = CreateObject("Shell.Application") Set objFolder = Shell.NameSpace(4) For Each printer In objFolder.Items If InstrRev(objFolder.GetDetailsOf(printer, 2), "Не подключен") <> 0 Then ' если принтер в режиме "Автономная работа" printer.InvokeVerbEx("&Использовать принтер в оперативном режиме") End If If InstrRev(objFolder.GetDetailsOf(printer, 2), "Приостановлена") <> 0 Then ' если принтер в режиме "Приостановленой печати" printer.InvokeVerbEx("Возобновить &печать") End If Next |