Drucker verfügbar, Drucker nicht verfügbar?

  • VB.NET

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von Roberto.

    Drucker verfügbar, Drucker nicht verfügbar?

    Hallo zusammen,

    ich hab mal wieder so eine komische Frage.
    Eine richtige Lösung konnte ich noch nicht finden.
    Mir geht es darum einen bestimmten Drucker zu erkennen ob er online ist oder nicht.
    Beispiel vom Betriebssysten:
    In Bereich Drucker & Scanner werden die Drucker angezeigt.
    Wenn ein Drucher aktiv wird nur der Druckername angezeigt. OK.
    Wenn der Drucker aus ist wird 'Nicht verfügbar' angezeigt.
    Das ist ja dann auch OK.
    Nur würde ich gerne das in VB.Net erreichen ohne das Betriebssystem zu benutzen.
    Vieles habe ich gefunden nur eben das nicht.
    Tja, wie könnte es gehen.
    Wie heißt es so schon 'Mit etwas Glück haben Sie einen Treffer' im Glückspiel.
    Alles Lüge. Mit viel Glück muss es heissen.
    Vieleicht habe ich hier im Forum etwas Glück.
    Grüße an die Kollegen
    Roberto

    leider kann ich es nicht testen, da ich keinerlei drucker zuhause hab, aber rein theoretisch mit:

    VB.NET-Quellcode

    1. ​Private Sub SurroundingSub()
    2. Dim printerQuery = New ManagementObjectSearcher("SELECT * from Win32_Printer")
    4. For Each printer In printerQuery.[Get]()
    5. Dim name = printer.GetPropertyValue("Name")
    6. Dim status = printer.GetPropertyValue("Status")
    7. Dim isDefault = printer.GetPropertyValue("Default")
    8. Dim isNetworkPrinter = printer.GetPropertyValue("Network")
    9. Console.WriteLine("{0} (Status: {1}, Default: {2}, Network: {3}", name, status, isDefault, isNetworkPrinter)
    10. Next
    11. End Sub


    eine Liste erstellen, von allen verfügbaren druckern, und anschließend diese Liste prüfen ob der gewünschte drucker in der Liste der verfügbaren enthalten ist. Angabe ohne gewähr :P
    If Energy = Low Then
    Drink(aHugeCoffee)
    Else
    Drink(aHugeCoffeeToo)
    End If

    @Roberto Probier mal dies:
    Form mit 3 Button und 2 Listboxen, Verweis auf System.Management:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Drawing.Printing
    2. Imports System.Management
    4. Public Class Form1
    5. Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
    6. ListBox1.Items.Clear()
    7. ListBox2.Items.Clear()
    8. For Each printer In PrinterSettings.InstalledPrinters
    9. 'ListBox1.Items.Add(printer) ' vorhanden
    10. If CheckPrinter(printer.ToString) Then
    11. ListBox1.Items.Add(printer) ' verfügbar
    12. End If
    13. Next
    14. End Sub
    16. Private Function CheckPrinter(ByVal printerName As String) As Boolean
    17. Try
    18. Dim printDocument As PrintDocument = New PrintDocument()
    19. printDocument.PrinterSettings.PrinterName = printerName
    20. Return printDocument.PrinterSettings.IsValid
    21. Catch
    22. End Try
    23. Return False
    24. End Function
    26. Private Sub Button2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.Click
    27. ListBox2.Items.Clear()
    28. If ListBox1.SelectedItem Is Nothing Then
    29. MessageBox.Show("Please select a Printer")
    30. Return
    31. End If
    33. Dim printerName As String = ListBox1.SelectedItem.ToString
    34. Dim query As String = String.Format("SELECT * from Win32_Printer WHERE Name LIKE '%{0}'", printerName)
    35. Using searcher As ManagementObjectSearcher = New ManagementObjectSearcher(query)
    36. Using coll As ManagementObjectCollection = searcher.Get()
    37. Try
    38. For Each printer As ManagementObject In coll
    39. For Each prop As PropertyData In printer.Properties
    40. If prop.Value IsNot Nothing Then
    41. If Not String.IsNullOrWhiteSpace(prop.Value.ToString) Then
    42. If TypeOf (prop.Value) Is String() Then
    43. Me.ListBox2.Items.Add(String.Format("{0}:", prop.Name))
    44. Dim strings = CType(prop.Value, String())
    45. For Each St In strings
    46. Me.ListBox2.Items.Add(String.Format(" {0}", St))
    47. Next
    48. Else
    49. Me.ListBox2.Items.Add(String.Format("{0}: {1}", prop.Name, prop.Value))
    50. End If
    51. End If
    52. End If
    53. Next
    54. Next
    55. Catch ex As ManagementException
    56. Console.WriteLine(ex.Message)
    57. End Try
    58. End Using
    59. End Using
    60. End Sub
    62. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    63. ListBox2.Items.Clear()
    64. For Each Printer In New ManagementObjectSearcher("SELECT * from Win32_Printer").Get
    65. Dim PrinterName = Printer.Properties.Cast(Of PropertyData).FirstOrDefault(Function(x) x.Name = "Caption").Value.ToString
    66. Dim PrinterState = Printer.Properties.Cast(Of PropertyData).FirstOrDefault(Function(x) x.Name = "PrinterState").Value
    67. Dim PrinterStatus = Printer.Properties.Cast(Of PropertyData).FirstOrDefault(Function(x) x.Name = "PrinterStatus").Value
    68. ListBox2.Items.Add(String.Format("{0}: {1}, {2}", PrinterName, PrinterState, PrinterStatus))
    69. Next
    70. End Sub
    71. End Class
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende