Raw Druck

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

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Lightsource.

    Raw Druck

    Etikettendrucker kann man als Generic/Text only ansprechen.
    Das heißt es wird mit VB.net nicht ein Grafik-Objekt erstellt, sondern man muss die Steuerkodes einzeln zum Drucker schicken.
    Ich hatte lange nach einer Lösung gesucht, und bin bisher nur auf die Lösung mit DLLs gestoßen.
    Hier mal ein Auszug, wer im Internet sucht, wird bestimmt den ganzen restlichen Code finden:

    VB.NET-Quellcode

    1. Public Class Class_Drucker
    2. ' Structure and API declarions:
    3. <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)>
    4. Structure DOCINFOW
    5. <MarshalAs(UnmanagedType.LPWStr)> Public pDocName As String
    6. <MarshalAs(UnmanagedType.LPWStr)> Public pOutputFile As String
    7. <MarshalAs(UnmanagedType.LPWStr)> Public pDataType As String
    8. End Structure
    10. <DllImport("winspool.Drv", EntryPoint:="OpenPrinterW",
    11. SetLastError:=True, CharSet:=CharSet.Unicode,
    12. ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)>
    13. Public Shared Function OpenPrinter(ByVal src As String, ByRef hPrinter As IntPtr, ByVal pd As Long) As Boolean
    14. End Function
    17. Public Shared Function SendBytesToPrinter(ByVal szPrinterName As String, ByVal pBytes As IntPtr, ByVal dwCount As Integer) As Boolean
    18. 'Public Shared Function SendBytesToPrinter(ByVal szPrinterName As String, ByVal pBytes As IntPtr, ByVal dwCount As Int32) As Boolean
    19. Dim hPrinter As IntPtr ' The printer handle.
    20. 'Dim hPrinter As Long ' The printer handle.
    22. Dim dwError As Int32 ' Last error - in case there was trouble.
    23. Dim di As DOCINFOW ' Describes your document (name, port, data type).
    24. Dim dwWritten As Int32 ' The number of bytes written by WritePrinter().
    25. Dim bSuccess As Boolean ' Your success code.
    27. ' Set up the DOCINFO structure.
    28. With di
    29. .pDocName = "Etikett"
    30. .pDataType = "RAW"
    31. .pOutputFile = ""
    32. End With
    33. ' Assume failure unless you specifically succeed.
    34. bSuccess = False
    35. If OpenPrinter(szPrinterName, hPrinter, 0) Then
    36. If StartDocPrinter(CType(hPrinter, IntPtr), 1, di) Then
    37. If StartPagePrinter(CType(hPrinter, IntPtr)) Then
    38. ' Write your printer-specific bytes to the printer.
    39. bSuccess = WritePrinter(CType(hPrinter, IntPtr), pBytes, dwCount, dwWritten)
    40. EndPagePrinter(CType(hPrinter, IntPtr))
    41. End If
    42. EndDocPrinter(CType(hPrinter, IntPtr))
    43. End If
    44. ClosePrinter(CType(hPrinter, IntPtr))
    45. End If


    Mit einer früheren VB.Net Version ging alles glatt. Jetzt bekomme ich mit VS2019
    eine Fehlermeldung bzw. Warnung bei dieser Zeile:

    Quellcode

    1. If OpenPrinter(szPrinterName, hPrinter, 0) Then


    Die Fehlermeldung lautet:
    Assistent für verwaltetes Debuggen "PInvokeStackImbalance" : "Ein Aufruf an die PInvoke-Funktion "Salmiak_dotnet!Salmiak_dotnet.Class_Drucker::OpenPrinter" hat das Gleichgewicht des Stapels gestört. Wahrscheinlich stimmt die verwaltete PInvoke-Signatur nicht mit der nicht verwalteten Zielsignatur überein. Überprüfen Sie, ob die Aufrufkonvention und die Parameter der PInvoke-Signatur mit der nicht verwalteten Zielsignatur übereinstimmen."


    Ich dachte erst, es würde am ByRef hPrinter As IntPtr hängen, darum habe ich erst mal versucht jeweils Long zu verwenden.
    Das hat leider nichts gebracht. So ganz verstehe ich die Fehlermeldung auch nicht, ob das mit der unerwarteten Bytelänge auf dem Stapel zu tun hat?

    Hat jemand eine Idee was ich da machen kann. Wenn ich beim Debuggen den Fehler ignoriere wird trotzdem ein Etikett ausgedruckt.

    Irgendwie verstehe ich nicht, warum man heutzutage solche Klimmzüge machen muss, um einen Drucker anzusprechen.

    Die andere Möglichkeit nach der ich hier mal frage...
    Über die Serielle Schnittstelle kann man ja problemlos einzelne Bytes schicken.
    Kann man diese Funktionen nicht auch verwenden, um einen Drucker am USB-Port anzusprechen?
    Das wäre für mich die einfachste Möglichkeit.

    Lightsource schrieb:

    hat das Gleichgewicht des Stapels gestört.
    bedeutet, dass Deine Signatur nicht stimmt.
    Gugst Du pinvoke.net/search.aspx?search=OpenPrinter&namespace=[All]
    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!

    Ich spekulationiere: Dein pd As Long müsste eigentlich einen Integer verwenden, kein Long sein.
    Warum das so kompliziert ist: Weil Du eben einen RawPrinter nutzen willst. Einzelne Bytes an den Drucker zu schieben ist nun mal Low-Level. Aber falls es Dir was bringt, hier der RawPrinterHelper, den ich erfolgreich nutze (zusammen mit nem Epson-Drucker):

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    3. Friend Class RawPrinterHelper
    4. <StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode)> Structure DOCINFOW
    5. <MarshalAs(UnmanagedType.LPWStr)> Friend DocumentName As String
    6. <MarshalAs(UnmanagedType.LPWStr)> Friend OutputFile As String
    7. <MarshalAs(UnmanagedType.LPWStr)> Friend DataType As String
    8. End Structure
    10. <DllImport("winspool.Drv", EntryPoint:="OpenPrinterW", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> Friend Shared Function OpenPrinter(src As String, ByRef hPrinter As IntPtr, pd As Integer) As Boolean : End Function
    11. <DllImport("winspool.Drv", EntryPoint:="ClosePrinter", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> Friend Shared Function ClosePrinter(hPrinter As IntPtr) As Boolean : End Function
    12. <DllImport("winspool.Drv", EntryPoint:="StartDocPrinterW", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> Friend Shared Function StartDocPrinter(hPrinter As IntPtr, level As Int32, ByRef pDI As DOCINFOW) As Boolean : End Function
    13. <DllImport("winspool.Drv", EntryPoint:="EndDocPrinter", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> Friend Shared Function EndDocPrinter(hPrinter As IntPtr) As Boolean : End Function
    14. <DllImport("winspool.Drv", EntryPoint:="StartPagePrinter", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> Friend Shared Function StartPagePrinter(hPrinter As IntPtr) As Boolean : End Function
    15. <DllImport("winspool.Drv", EntryPoint:="EndPagePrinter", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> Friend Shared Function EndPagePrinter(hPrinter As IntPtr) As Boolean : End Function
    16. <DllImport("winspool.Drv", EntryPoint:="WritePrinter", SetLastError:=True, CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> Friend Shared Function WritePrinter(hPrinter As IntPtr, pBytes As IntPtr, dwCount As Int32, ByRef dwWritten As Int32) As Boolean : End Function
    18. Friend Sub SendStringToPrinter(PrinterName As String, TextToPrint As String)
    19. Dim PointerToTextString = Marshal.StringToCoTaskMemAnsi(TextToPrint)
    20. Dim TextLength = TextToPrint.Length()
    21. SendBytesToPrinter(PrinterName, PointerToTextString, TextLength)
    22. Marshal.FreeCoTaskMem(PointerToTextString)
    23. End Sub
    25. Private Sub SendBytesToPrinter(PrinterName As String, PointerToTextString As IntPtr, TextLength As Integer)
    26. Dim PrinterHandle = IntPtr.Zero
    27. Dim DocumentInfo = New DOCINFOW With {.DocumentName = "VB.NET RAW document", .DataType = "RAW"}
    28. Dim WrittenBytesCount = 0
    30. If Not OpenPrinter(PrinterName, PrinterHandle, 0) Then Return
    32. If StartDocPrinter(PrinterHandle, 1, DocumentInfo) Then
    33. If StartPagePrinter(PrinterHandle) Then
    34. WritePrinter(PrinterHandle, PointerToTextString, TextLength, WrittenBytesCount)
    35. EndPagePrinter(PrinterHandle)
    36. End If
    37. EndDocPrinter(PrinterHandle)
    38. End If
    39. ClosePrinter(PrinterHandle)
    40. End Sub
    42. End Class

    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.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VaporiZed“ ()

Facebook
Telefonspende