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

  • 相关阅读:
    Linux的iptables和netfilter
    adb安装电视apk
    令牌桶实现服务器限流
    观察者模式代码实现
    Windows系统安装Oracle 11g 数据库
    Gitlab安装后 启动之后报错502
    Git两库合并历史记录
    Maven打包时指定对应环境的配置文件
    HierarchicalDataTemplateGridControl
    自定义CommandHandler
  • 原文地址:https://www.cnblogs.com/rosesmall/p/3140438.html
Copyright © 2011-2022 走看看