sanryuブログ

    ''' 

    ''' プリンタジョブを取得する
    ''' 
    ''' プリンタ名
    ''' 
    ''' 
    Public Shared Function GetPrintJobsCollection(ByVal printerName As String) As List(Of String)
　
        Dim printJobCollection As New List(Of String)
        Dim searchQuery As String = "SELECT * FROM Win32_PrintJob"
        Dim searchPrintJobs As ManagementObjectSearcher = New ManagementObjectSearcher(searchQuery)
　
        Dim prntJobCollection As ManagementObjectCollection = searchPrintJobs.Get()
　
        For Each prntJob As ManagementObject In prntJobCollection
            Dim jobName As String = prntJob.Properties("Name").Value.ToString()
　
            Dim prnterName As String = jobName.Split(",")(0)
            Dim documentName As String = prntJob.Properties("Document").Value.ToString()
      　    If String.Compare(prnterName, printerName) = 0 Then
                printJobCollection.Add(documentName)
            End If
        Next
        Return printJobCollection
    End Function