前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >VB.NET 获取打印机列表,并返回打印机状态

VB.NET 获取打印机列表,并返回打印机状态

作者头像
一线编程
发布2019-07-22 14:39:30
2.7K0
发布2019-07-22 14:39:30
举报
文章被收录于专栏:办公魔盒

Imports System.Management

Imports System.Drawing.Printing

Public Class cls_Status

''' <summary>

''' 获取打印机列表

''' </summary>

''' <returns>返回一个ArrayList</returns>

Public Function getPrinterName() As ArrayList

Dim arr As New ArrayList()

For Each s As String In PrinterSettings.InstalledPrinters

arr.Add(s)

Next

Return arr

End Function

''' <summary>

'''返回一个整形值,所代表的意思是打印机状态

''' </summary>

''' <param name="printerName">打印机名称</param>

''' <returns>返回一个int值</returns>

Private Function PrinterStatusInt(ByVal printerName As String) As Integer

Dim intt As Integer = -1

Dim path As String = "win32_printer.DeviceId='" + printerName + "'"

Dim printer As New ManagementObject(path)

printer.Get()

intt = Convert.ToInt32(printer.Properties("PrinterStatus").Value)

Return intt

End Function

''' <summary>

''' 获取打印机状态

''' </summary>

''' <param name="printerName">打印机名称</param>

''' <returns>返回一个字符串</returns>

Public Function GetPrinterStatus(ByVal printerName As String) As String

Dim arr As Integer = PrinterStatusInt(printerName)

Dim status As String = ""

Select Case arr

Case 1, 2

status = "未知"

Exit Select

Case 3

status = "就绪"

Exit Select

Case 4, 7

status = "正在打印"

Exit Select

Case 5

status = "警告"

Exit Select

Case 6

status = "暂停"

Exit Select

Case 8

status = "脱机"

Exit Select

Case Else

status = "错误"

Exit Select

End Select

Return status

End Function

End Class



百度链接:

链接:https://pan.baidu.com删/s/1lNUYdC除IMru2w2l65JtzFjw

提取码:tdp2

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2018-12-24,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 办公魔盒 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档