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 (编辑:李大同)
【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容!
|