Member 13678238 Ответов: 0

Как проверить состояние тонера принтера VB 2010 express

Как проверить состояние тонера принтера, и если есть "низкий тонер" или только 30%, отправьте электронное письмо и покажите MsgBox("низкий Тонер").

Что я уже пробовал:

У меня есть только код для отправки электронного письма

Dim Outl As Object
            Outl = CreateObject("Outlook.Application")
            If Outl IsNot Nothing Then
                Dim omsg As Object
                omsg = Outl.CreateItem(0)
                omsg.To = "aaa@gmail.com"
                'omsg.cc =
                omsg.subject = "LOW TONER"
                omsg.body = ("here information about the toner")
                
                omsg.Send()

            Else
                MsgBox("Message Error")

            End If

CHill60

Это, безусловно, будет зависеть от того, какой принтер у вас есть - обратитесь к инструкциям производителя по их API - если он у них есть.

Member 13678238

да, принтер имеет эту опцию, принтер установлен по умолчанию в системе Windows, которая показывает сообщение "низкий тонер"

0 Ответов