Consoleanwendung Standarddrucker temporär ändern

  • VB.NET
  • .NET (FX) 4.5–4.8

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

    Consoleanwendung Standarddrucker temporär ändern

    Hallo Leute,

    ich möchte eine kleine Console-Anwendunger erstellen, mit der ich Dateien ausdrucken möchte. Das klappt auch einwandfrei. :)

    Nun möchte ich aber vorher ggf. den Standarddrucker temporär ändern und nach dem Ausdruck wieder auf den alten Drucker zurücksetzen.
    Hat einer eine Idee wie ich das am einfachsten machen kann?

    Vielen Dank im Voraus.

    Gruß Achilleus

    Shamelessly copied and modified from MSDN

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    2. Imports System.Text
    4. Module Module1
    6. <DllImport("winspool.drv")> Private Function AddPrinterConnection(pName As String) As Boolean : End Function
    7. <DllImport("winspool.drv", CharSet:=CharSet.Auto, SetLastError:=True)> Private Function SetDefaultPrinter(Name As String) As Boolean : End Function
    8. <DllImport("winspool.drv", CharSet:=CharSet.Auto, SetLastError:=True)> Private Function GetDefaultPrinter(Name As StringBuilder, ByRef NameLength As Integer) As Boolean : End Function
    10. Sub Main()
    11. PrintFile(PfadDerZuDruckendenDatei, NameDesZuVerwendendenDruckers)
    12. End Sub
    14. Private Sub PrintFile(FileName As String, PrinterName As String)
    15. If String.IsNullOrEmpty(FileName) OrElse String.IsNullOrEmpty(PrinterName) Then Return
    17. Dim DefaultPrinterName As New StringBuilder(100)
    18. Dim NameLength = 100
    19. GetDefaultPrinter(DefaultPrinterName, NameLength)
    20. AddPrinterConnection(PrinterName)
    21. SetDefaultPrinter(PrinterName)
    23. Using PrintProcess As New Diagnostics.Process
    24. PrintProcess.StartInfo.FileName = FileName
    25. PrintProcess.StartInfo.Verb = "Print"
    26. PrintProcess.StartInfo.WindowStyle = Diagnostics.ProcessWindowStyle.Hidden
    27. PrintProcess.StartInfo.UseShellExecute = True
    28. PrintProcess.Start()
    29. Threading.Thread.Sleep(1000) 'ohne dies wird der Drucker zu schnell wieder umgestellt
    30. End Using
    31. SetDefaultPrinter(DefaultPrinterName.ToString)
    32. End Sub
    34. End Module
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

Facebook
Telefonspende