zoukankan      html  css  js  c++  java
  • vb 获取打印机名称

    Const HKLM = &H80000002 '定义根键常数
    '其他常用根键 Const HKCR = &H80000000 , Const HKCU = &H80000001
    Set oReg = GetObject("winmgmts:\. ootdefault:StdRegProv")
    strKeyPath = "SOFTWAREMicrosoftWindowsCurrentVersionApp 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:\. ootdefault:StdRegProv")
    objRegistry.EnumValues &H80000001, "SoftwareMicrosoftWindows NTCurrentVersionPrinterPorts", arrSubKeys
    For Each subkey In arrSubKeys
    If InStr(1, subkey, PrinterDescription) Then
    objRegistry.GetStringValue &H80000001, "SoftwareMicrosoftWindows NTCurrentVersionPrinterPorts", 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

  • 相关阅读:
    Python基础之基本数据类型
    Python基础之变量
    mysql数据库
    进程与线程
    并发编程
    网络编程
    内置函数(魔法方法)
    组合,封装,访问限制机制,property装饰器
    面向对象之继承
    Web开发中最致命的8个小错误
  • 原文地址:https://www.cnblogs.com/rosesmall/p/3140438.html
Copyright © 2011-2022 走看看