119.获得当前操作系统的打印机个数及检测打印是否存在

'###############################################################

'函数作用：获得当前操作系统的打印机个数及检测打印是否存在

'###############################################################

Public Function CheckPrinter(Optional PrinterName As String = vbNullString) As Variant

    If PrinterName = vbNullString Then

        CheckPrinter = Printers.Count

        Exit Function

    End If

    For Pin = 0 To Printers.Count ‐ 1

        If UCase(Printers(Pin).DeviceName) = UCase(PrinterName) Then

            CheckPrinter = Printers(Pin).DeviceName

            Exit For

        Else

            CheckPrinter = vbNullString

        End If

    Next

End Function