Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Программирование, связанное с MS Office > Список принтеров

Автор: shovkoplyas 11.4.2006, 17:21

Активный принтер определяется как Printer=ActivePrinter.

1. Как узнать програмно список всех принтеров?
2. Как узнать какой цветной, а какой чёрно-белый?

Автор: Akina 12.4.2006, 09:12

Через WMI получить список принтеров. Далее подключаться к ним и общаться на предмет цветности.

Код


for each OnePrinter in GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf ("Win32_Printer")
   WScript.Echo OnePrinter.Name
Next

На VBA сам переводи - это несложно.

Автор: shovkoplyas 12.4.2006, 11:52

Цитата

Через WMI получить список принтеров

Можно подробней.

Автор: Akina 12.4.2006, 15:33

Я ж тебе код VBS-скрипта дал - куда подробнее?

Автор: likhobory 12.4.2006, 16:29

описание WMI см. здесь: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnwmi/html/wmiscript.asp

Автор: shovkoplyas 12.4.2006, 19:11

Извиняюсь, не сообразил. Всё получилось.

Код


Dim OnePrinter As Object
For Each OnePrinter In GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf("Win32_Printer")
MsgBox (OnePrinter.Name)
Next

Спасибо за помощь.