Определение наличия принтера в системе - VB

Формулировка задачи:

HI ALL Определение наличия принтера в системе:

Private Sub Form_Load()
Dim x As Printer
Dim KolPrinterov As Byte
For Each x In Printers
KolPrinterov = 1 + KolPrinterov
Next
If KolPrinterov < 1 Then
MsgBox "Нет принтера в системе"
Else
MsgBox "Есть принтер в системе"
End If
End Sub

Вопрос! Можно ли это сделать как получше? Заранее благодарю.

Решение задачи: «Определение наличия принтера в системе»

textual
                            Листинг программы 
                        

                            On Error Resume Next
x=Printer.DeviceName
If Err.Number<>0 then
  msgbox "Нет установленных принтеров!"
else
' ...
end if
                        

Оцени полезность:

9 голосов , оценка 4.222 из 5

Похожие ответы