Verificar disponibilidade de impressora

Saudações galera... Eu tenho um sistema pra gerar OS's, que gera um registro e imprime um relatório, o relatório é impresso em uma impressora Compartilhada...

OBS: A impressora não é em rede, ela é de outro PC mas esta compartilhada, ou seja, só vou conseguir imprimir nesta impressora se o PC dela estiver ligado...

O que eu precisaria era de uma forma de verificar se esta impressora está disponível, pra não ter o perigo de ta gerando o registro sem imprimir a OS..

Gratidão!!!

Oi

Testa este código

Código:

Private Enum PrinterStatus

PrinterIdle = 3

PrinterPrinting = 4

PrinterWarmingUp = 5

' For more states see WMI docs.

End Enum

Private Function PrinterStatusToString(ByVal ps As PrinterStatus) As String

Dim s As String

Select Case ps

Case PrinterStatus.PrinterIdle

s = "waiting (idle)"

Case PrinterStatus.PrinterPrinting

s = "printing"

Case PrinterStatus.PrinterWarmingUp

s = "warming up"

Case Else

s = "unknown state"

End Select

PrinterStatusToString = s

End Function

Private Sub Form1_Load( _

ByVal sender As System.Object, _

ByVal e As System.EventArgs _

) Handles MyBase.Load

Dim strPrintServer As String

strPrintServer = "localhost"

Dim WMIObject As String, PrinterSet As Object, Printer As Object

WMIObject = "winmgmts://" & strPrintServer

PrinterSet = GetObject(WMIObject).InstancesOf("win32_Printer")

For Each Printer In PrinterSet

MsgBox( _

Printer.Name & ": " & _

PrinterStatusToString(Printer.PrinterStatus) _

)

Next Printer

End Sub


Cara... Tentei fuçar, mas não deu certo... Fica dando erro