切换默认打印机

切换系统默认打印机

Imports System.Management

    Private Function SetDefaultPrinter(ByVal PrinterName As String) As Boolean
        '改变系统默认打印机
        Dim setDefaulted As Boolean = False
        Dim query As New ManagementObjectSearcher("select * from win32_printer")
        Dim querycollection As ManagementObjectCollection
        querycollection = query.Get()
        Dim mo As ManagementObject
        For Each mo In querycollection
            If mo("name").ToString.ToUpper = PrinterName.ToUpper Then
                mo.InvokeMethod("setdefaultprinter", Nothing)
                setDefaulted = True
                Exit For
            End If
        Next
        Return setDefaulted
    End Function