VB6 获取和设置默认打印机

最新推荐文章于 2017-11-23 16:17:43 发布

karl_han

最新推荐文章于 2017-11-23 16:17:43 发布

阅读量6.6k

点赞数

分类专栏： VB

本文链接：https://blog.csdn.net/karl_han/article/details/34860175

版权

这段VB6代码展示了如何获取和设置系统的默认打印机。通过`GetProfileString`函数获取当前默认打印机，然后使用`setDefaultPrinter_To_System`函数可以将指定打印机设为默认打印机。

摘要由CSDN通过智能技术生成

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