zoukankan      html  css  js  c++  java
  • 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

  • 相关阅读:
    爬虫杂七杂八
    pycharm使用技巧
    python杂七杂八
    mysql杂七杂八
    mysql常见函数总结:
    CF1030F Putting Boxes Together
    AT2688 [ARC080C] Young Maids
    P5280 [ZJOI2019]线段树
    雨的味道
    P2572 [SCOI2010]序列操作
  • 原文地址:https://www.cnblogs.com/rosesmall/p/4938813.html
Copyright © 2011-2022 走看看