Mal die andere Richtung: VB PrinterSettings in Windows

  • Allgemein

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von dive26.

    Mal die andere Richtung: VB PrinterSettings in Windows

    Hallo,

    weiß hier jemand vielleicht wo man unter Windows 8.1 den String wiederfindet der hiermit ausgelesen wird:
    Dim name = Printing.PrinterSettings.InstalledPrinters(i)

    Unter Geräte und Drucker in der Auflistung der Drucker wird für den Namen eines freigegebenen Druckers ein Ersatz verwendet.
    Zum Beispiel hat ein lokal installierter Drucker den Namen "Drucker1" und wird auch mit der obigen Methode als "Drucker1" ausgelesen.
    Ein freigegebener Drucker wird mit dem Namen "Drucker2 an PC1" aufgelistet aber mit der obigen Methode als "\\PC1\Drucker2". Das ist natürlich der Pfad mit dem der Drucker zu erreichen ist.
    Aber das steht so quasi nirgendwo mehr, wenn man so einen Drucker installiert hat. bzw. ich kann es nicht finden.

    Ich hatte einen Designfehler in einem Programm entdeckt, so ist mir das aufgefallen.
    Vielleicht steht es ja doch irgendwo. Vb muss es ja auch irgendwo herbekommen

    Viele Grüße

    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!

    Die einfachste Lösung ist, den Netzwerkpfad zum Drucker auch lokal zu verwenden "\\PC1\Drucker2" ;-).

    Ich stand auch vor diesem Problem bei meiner Kassensoftware.
    Beim Artikel in der zentralen Datenbank ist z.B. der Drucker "Kueche" hinterlegt. Auf dem lokalen Rechner wird dieser auch mit "Kueche" installiert. Auf dem Netzwerkrechner jedoch mit "\\Kasse2\Kueche".

    Ich bin den einfachen Weg gegangen und suche einfach in der Druckerenumeration in den Druckernamen ob der Betriff "Kueche" enthalten ist.
    Und schon gelöst.

    Jedoch ist der sauberste Weg gleich einen Netzwerkdrucker zu verwenden und auf allen Rechnern mit identischen Druckernamen zu installieren. Windows-Druckerfreigaben sind nicht das Gelbe vom Ei ;-).
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

    dive26 schrieb:

    Jedoch ist der sauberste Weg gleich einen Netzwerkdrucker zu verwenden und auf allen Rechnern mit identischen Druckernamen zu installieren. Windows-Druckerfreigaben sind nicht das Gelbe vom Ei ;-).

    Was ist bei der Freigabe denn das Problem? Abseits der Namen
    An sich ist es gar keine schlechte Sache, denn wenn man auf jedem System den Drucker eigenständig installiert, dann muss man auch an jedem System Änderungen vornehmen, falls nötig.

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Haudruferzappeltnoch“ ()

    Was ist bei den Freigabe denn das Problem?


    Genau das was Du in Deinem Beitrag als Frage/Problemstellung geschrieben hast ;-).

    Aber um auf Deine Eingangsfrage zurückzukommen.
    In der Druckerauflistung kann man Name UND "Port" und noch vieles mehr auslesen (siehe Screenshot).
    Dann darfst aber nicht nur auf die einfache Variante Dim name = Printing.PrinterSettings.InstalledPrinters(i) zugreifen.

    Hier mein Code den ich dazu verwende:


    VB.NET-Quellcode

    1. GetPrinterDriver("HP Laserjet 1100C") 'übergibt den Treibernamen als String
    2. GetPrinterPort("HP Laserjet 1100C") 'übergibt den Port als String
    4. ''' <summary>
    5. ''' Gibt den Treibernamen für den angegebenen Drucker zurück
    6. ''' Imports System.Management nicht vergessen!!!
    7. ''' </summary>
    8. ''' <param name="Druckername"></param>
    9. ''' <returns></returns>
    10. ''' <remarks></remarks>
    11. Public Function GetPrinterDriver(Druckername As String) As String
    12. Dim moReturn As Management.ManagementObjectCollection
    13. Dim moSearch As Management.ManagementObjectSearcher
    14. Dim mo As Management.ManagementObject
    15. moSearch = New Management.ManagementObjectSearcher("Select * from Win32_Printer ")
    16. moReturn = moSearch.Get
    18. For Each mo In moReturn
    19. If mo("Name").ToString = Druckername Then
    20. Return mo("DriverName").ToString
    21. Exit Function
    22. End If
    23. Next
    24. Return ""
    25. End Function
    27. ''' <summary>
    28. ''' Gibt den Portnamen für den angegebenen Drucker zurück
    29. ''' Imports System.Management nicht vergessen!!!
    30. ''' </summary>
    31. ''' <param name="Druckername"></param>
    32. ''' <returns></returns>
    33. ''' <remarks></remarks>
    34. Public Function GetPrinterPort(Druckername As String) As String
    35. Dim moReturn As Management.ManagementObjectCollection
    36. Dim moSearch As Management.ManagementObjectSearcher
    37. Dim mo As Management.ManagementObject
    38. moSearch = New Management.ManagementObjectSearcher("Select * from Win32_Printer ")
    39. moReturn = moSearch.Get
    41. For Each mo In moReturn
    42. If mo("Name").ToString = Druckername Then
    43. Return mo("PortName").ToString
    44. Exit Function
    45. End If
    46. Next
    47. Return ""
    48. End Function
    Bilder

    • 01082022142306.jpg

      85,96 kB, 622×174, 40 mal angesehen
    Liebe Grüße
    Roland Berghöfer

    Meine aktuellen und kostenlos verwendbaren Tools (mit VB.NET erstellt): freeremarkabletools.com | priconman.com | SimpleCalendar | AudibleTouch | BOComponent.com | bonit.at

Facebook
Telefonspende