Список установленных принтеров

[oskolok_vatbI]

Подскажите пожалуйста, как можно получить список установленных в системе принтеров и количество заданий на каждом. Сам не знаю, а поиск выдает примеры только для VB 6. Спасибо.

[Williams]

Что-то мне подсказывает, что нужно копать в сторону WMI.

Начать следует с пространства имен Management. Особое внимание уделить ManagementObject и ManagementObjectSearcher. Синтаксис базируется на SQL.



Строка для поиска:

Код: Выделить всё

SELECT * FROM Win32_Printer

[Viper]

Глядеть для начала на это свойство: PrinterSettings.InstalledPrinters

[oskolok_vatbI]

А можно ли через свойства получить состояние принтера, т.е. узнать есть на нем задания или нет ? Как это сделать используя WMI я разобрался, но во время выполнения запроса вся форма, на некоторое время, заметно подвисает.

[Williams]

oskolok_vatbI

А что мешает выполнить WMI-запросы в отдельном потоке? Например через BackgroundWorker.

[oskolok_vatbI]

Сделал так:

Код: Выделить всё

    Dim prStatus As Integer

    Private Sub BackgroundWorker1_DoWork(ByVal sender As Object, _
                ByVal e As System.ComponentModel.DoWorkEventArgs) _
                Handles BackgroundWorker1.DoWork
        Try
            Dim Searcher As New ManagementObjectSearcher
            Searcher.Query = New SelectQuery _
            ("SELECT * FROM Win32_Printer Where Name=""FILE""")
            Dim obj As ManagementObject
            For Each obj In Searcher.Get
                prStatus = obj.GetPropertyValue("PrinterStatus")
            Next
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

    Private Sub BackgroundWorker1_RunWorkerCompleted(ByVal sender As Object, _
                ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) _
                Handles BackgroundWorker1.RunWorkerCompleted
        prStat()
    End Sub

    Private Sub prStat()
        Select Case prStatus
            Case 3
                Label1.Text = "Free"
            Case Else
               Label1.Text = "Busy"
        End Select
        BackgroundWorker1.RunWorkerAsync()
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
                Handles Me.Load
        BackgroundWorker1.RunWorkerAsync()
    End Sub


Работает, но все равно, на смену состояния принтера реагирует дольше чем хотелось бы. Посоветуйте что-нибудь и, если кому не трудно, скажите какие ошибки допущены мной в этом кусочке кода. Спасибо.

[Sebas]

http://www.merrioncomputing.com/Downloa ... /index.htm

[Williams]

oskolok_vatbI

Sebas прав. Для мониторинга это вполне подходит.



Добавляешь библиотечку, затем примерно так:



For Each myPrinter As String In Printing.PrinterSettings.InstalledPrinters



PrinterMonitorComponent1.AddPrinter(myPrinter)



Next



И не забудь зарегистрировать обработчики событий.