VB6 获取和设置默认打印机

Private Declare Function GetProfileString Lib "kernel32" Alias "GetProfileStringA" (ByVal lpAppName As String, ByVal lpKeyName As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long) As Long

Function GetDeviceName() As String

Dim di As String

def$ = String(128, 0)

di = GetProfileString("WINDOWS", "DEVICE", "", def$, 127)

GetDeviceName = Trim(def$)

GetDeviceName = Left(GetDeviceName, InStr(GetDeviceName, ",") - 1)

End Function

Private Sub Command1_Click()

Dim a As String

MsgBox GetDeviceName

a = GetDeviceName()

Call setDefaultPrinter_To_System("PDF995")

End Sub

Public Sub setDefaultPrinter_To_System(devcName As String)

Dim X As Printer

Dim WshNetwork As Object

Dim k As Long

k = 0

For Each X In Printers

If X.DeviceName = devcName Then

' Set printer as system default.

Set Printer = X

Set WshNetwork = CreateObject("WScript.Network")

WshNetwork.setDefaultPrinter (Printers(k).DeviceName)

' Stop looking for a printer.

Exit For

End If

k = k + 1

Next

End Sub