获取打印机vb.net,获取打印机信息失败怎么回事

vb.net 获取打印机列表

Public Function EnumPrinters()

Dim PrinterSQL As String =

"SELECT * FROM Win32_Printer"

Dim

printers As Management.ManagementObjectCollection = New

Management.ManagementObjectSearcher(PrinterSQL).Get()

Dim printer As

Management.ManagementObject

For

Each printer In

printers

Dim pde As Management.PropertyDataCollection.PropertyDataEnumerator =

printer.Properties.GetEnumerator

While

(pde.MoveNext)

Try

If pde.Current.Name = "DriverName"

Then

combobox1.Items.Add(pde.Current.Value.ToString)

End

If

Catch ex As

Exception

MessageBox.Show(ex.ToString)

End

Try

End

While

Next

End Function

相关问答

Q1: vb中如何获取系统默认打印机的名称？

Const HKLM = H80000002 '定义根键常数

'其他常用根键 Const HKCR = H80000000 , Const HKCU = H80000001

Set oReg = GetObject("winmgmts:\\.\root\default:StdRegProv")

strKeyPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths"

oReg.EnumKey HKLM, strKeyPath, arrSubKeys '枚举子项,赋值给数组arrSubKeys

For Each subkey In arrSubKeys

Print subkey

Next

For Each x In Printers

FindPrinter strPrint, x.DeviceName

next

Function FindPrinter(ByRef PrinterName As String, Optional ByVal PrinterDescription As String = "") As Boolean

' 查指定打印机

Dim objRegistry As Object

Dim arrSubKeys As Variant

Dim subkey As Variant

Dim KeyValue As Variant

If Len(PrinterDescription) 0 Then

Set objRegistry = GetObject("winmgmts:\\.\root\default:StdRegProv")

objRegistry.EnumValues H80000001, "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts", arrSubKeys

For Each subkey In arrSubKeys

If InStr(1, subkey, PrinterDescription) Then

objRegistry.GetStringValue H80000001, "Software\Microsoft\Windows NT\CurrentVersion\PrinterPorts\", subkey, KeyValue

PrinterName = subkey " 在 " Mid(KeyValue, InStr(KeyValue, ",") + 1, InStr(KeyValue, ":,") - InStr(KeyValue, ","))

FindPrinter = True

Exit For

End If

Next

Set objRegistry = Nothing

End If

End Function

Q2: VB.Net中怎么获取打印机端口名称

打印机端口查看方法如下：

1、进入“控制面板”-“设备和打印机”；

2、右键需要查看的打印机，选择“属性”；

3、选择”Web服务“，即可查看IP端口。

Q3: VB.NET中怎么获取当前打印机的纸张类型

我是VB.NET 2010版本

窗体上添加一个按钮，代码如下：

Imports System.Drawing.Printing

Public Class Form1

'采用关键字WithEvents声明一个PrintDocument对象，会引发它的PrintPage事件

Private WithEvents My_PrintDocument As PrintDocument

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

'实例化PrintDocument对象

My_PrintDocument = New PrintDocument

'显示默认的打印机名称

MsgBox(My_PrintDocument.PrinterSettings.PrinterName)

'显示默认的打印机纸张类型名称

MsgBox(My_PrintDocument.DefaultPageSettings.PaperSize.ToString)

End Sub

End Class