Question

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

Answer 1

在VB中有一个Printers对象，包含了本机安装的所有打印机。

Printer.DeviceName 就是系统默认打印机的名称：

Answer 2

添加一个CommonDialog控件，CommonDialog1
添加一个按钮

代码如下：

Option Explicit

Private Sub Command1_Click()

CommonDialog1.Flags = cdlPDAllPages Or cdlPDPageNums Or cdlPDSelection Or cdlPDCollate Or cdlPDPrintSetup

CommonDialog1.ShowPrinter

End Sub

运行后，单击按钮，看看！

Answer 3

Private Sub Form_Load()
Dim prn As Printer
Me.AutoRedraw = True
Me.Cls
Print "开始"
Print ""
For Each prn In Printers
Print prn.DeviceName
If prn.Orientation Then
Print "默认打印机名称 " & prn.DeviceName
End If
Next
Print ""
Print "完毕"
End Sub