Для семерки так:
Как программно узнать готовность принтера
Для восьмерки:
Шелл = Новый COMОбъект("Shell.Application");
Принтеры = Шелл.Namespace("shell:PrintersFolder");
Для Каждого Принтер Из Принтеры.Items() Цикл
Сообщить(Принтер.Name + ": " + Принтеры.GetDetailsOf(Принтер, -1));
КонецЦикла;
Принтер = Принтеры.ParseName("Отправить в OneNote 2007");
Сообщить(Принтер.Name + ": " + Принтеры.GetDetailsOf(Принтер, 2));