Problem mit (Bon)drucker

  • VB.NET

Es gibt 24 Antworten in diesem Thema. Der letzte Beitrag () ist von Dizzy.

    jannik01 schrieb:

    Was
    So was zum Beispiel.
    Da musst Du Dich mal gezielt auf die Suche machen.

    jannik01 schrieb:

    Also wie kann ich den Drucker dann genau ansteuern, über POS.
    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!

    Wie ich schon geschrieben habe. in meinem Post sind ja die Links dabei.
    zuerst musst du dir das Pos für .Net fon Microsoft installieren.
    und dann den passenden Pos Treiber für den drucker. theoretisch müsste der von Epson funktuinieren. auch dazu habe ich ja einen Link gepostet.
    Und wie schon gesagt nicht jeder Drucker ist Pos kompatiebel. da must du selber rechachieren. probier es mal mit dem aus was ich geschrieben habe.
    und wie das dann mit dem drucken ist habe ich auch geschrieben, bei dem EPSON OPOS for .Net sind Beispiele dabei.

    aber hier mal ein kleines Beispiel wie das ungefähr aussieht.

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports Microsoft.PointOfService
    3. Imports System.Globalization
    5. Public Class Form1
    6. Inherits System.Windows.Forms.Form
    7. Private m_Printer As Microsoft.PointOfService.PosPrinter = Nothing
    8. Private CtInfo As New CultureInfo("de-De")
    9. ' Private CtInfo As New CultureInfo("de-De")
    11. 'ESC command
    12. Private ESC As String = Chr(&H1B)
    15. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    17. '<<<step1>>>--Start
    18. 'Use a Logical Device Name which has been set on the SetupPOS.
    19. Dim strLogicalName As String
    20. Dim deviceInfo As DeviceInfo
    21. Dim m_posExplorer As PosExplorer
    22. Dim flag_op As Boolean = True
    24. strLogicalName = "PosPrinter"
    26. 'Create PosExplorer
    27. m_posExplorer = New PosExplorer
    29. m_Printer = Nothing
    31. If flag_op = True Then
    32. Timer1.Enabled = True
    33. Timer1.Interval = 1500
    34. End If
    36. Try
    38. deviceInfo = m_posExplorer.GetDevice(DeviceType.PosPrinter, strLogicalName)
    39. m_Printer = CType(m_posExplorer.CreateInstance(deviceInfo), PosPrinter)
    42. Catch ex As Exception
    43. ChangeButtonStatus()
    44. Return
    45. End Try
    47. Try
    48. 'Open the device
    49. m_Printer.Open()
    51. 'Get the exclusive control right for the opened device.
    52. 'Then the device is disable from other application.
    53. m_Printer.Claim(1000)
    55. 'Enable the device.
    56. m_Printer.DeviceEnabled = True
    57. Label1.Text = m_Printer.DeviceName
    58. Label2.Text = m_Printer.CoverOpen.ToString
    59. Catch ex As PosControlException
    61. ChangeButtonStatus()
    63. End Try
    64. '<<<step1>>>--End
    65. End Sub
    67. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    68. '<<<step2>>>--Start
    69. 'Initialization
    71. 'Dim ESC As String * 1
    73. Dim dateTime As DateTime = New DateTime
    74. Dim dateFormat As DateTimeFormatInfo = New DateTimeFormatInfo
    75. Dim strDate As String
    78. 'Get current date
    79. dateTime = System.DateTime.Now()
    81. dateFormat.MonthDayPattern = "MMMM"
    83. strDate = dateTime.ToString("MMMM,dd,yyyy, HH:mm", dateFormat)
    85. Try
    87. 'Print address
    88. m_Printer.PrintNormal(PrinterStation.Receipt, ESC + "|N" _
    89. + "123xxstreet,xxxcity,xxxxstate" + vbCrLf)
    91. 'Print phone number
    92. m_Printer.PrintNormal(PrinterStation.Receipt, ESC + "|rA" _
    93. + "TEL 9999-99-9999 C#2" + vbCrLf)
    95. 'Print date
    96. 'ESC|cA = Centaring char
    97. m_Printer.PrintNormal(PrinterStation.Receipt, ESC + "|cA" + strDate + vbCrLf + vbCrLf)
    98. 'Print buying goods
    99. m_Printer.PrintNormal(PrinterStation.Receipt, "apples $20.00" + vbCrLf)
    101. m_Printer.PrintNormal(PrinterStation.Receipt, "grapes $30.00" + vbCrLf)
    103. m_Printer.PrintNormal(PrinterStation.Receipt, "bananas $40.00" + vbCrLf)
    105. m_Printer.PrintNormal(PrinterStation.Receipt, "lemons $50.00" + vbCrLf)
    107. m_Printer.PrintNormal(PrinterStation.Receipt, "oranges $60.00" + vbCrLf + vbCrLf)
    109. '//Print the total cost
    110. '//ESC|bC = Bold
    111. '//ESC|uC = Underline
    112. '//ESC|2C = Wide charcter
    113. m_Printer.PrintNormal(PrinterStation.Receipt, ESC + "|bC" _
    114. + "Tax excluded. $200.00" + ESC + "|N" + vbCrLf)
    116. m_Printer.PrintNormal(PrinterStation.Receipt, ESC + "|uC" _
    117. + "Tax 5.0% $10.00" + ESC + "|N" + vbCrLf)
    119. m_Printer.PrintNormal(PrinterStation.Receipt, ESC + "|bC" + ESC + "|2C" _
    120. + "Total $210.00" + ESC + "|N" + vbCrLf)
    124. m_Printer.PrintNormal(PrinterStation.Receipt, "Customer's payment $250.00" + vbCrLf)
    125. m_Printer.PrintNormal(PrinterStation.Receipt, "Change $40.00" + vbCrLf + vbCrLf)
    126. m_Printer.PrintNormal(PrinterStation.Receipt, ESC + "|cA" + ESC + "|2C" + "Thaks for shoping")
    127. 'Feed the receipt to the cutter position automatically, and cut.
    128. 'ESC|#fP = Line Feed and Paper cut
    129. Dim TestCutting As String = ESC & "|100fP"
    130. m_Printer.PrintNormal(PrinterStation.Receipt, TestCutting)
    132. Catch ex As PosControlException
    134. End Try
    135. '//<<<step2>>>--End
    136. End Sub

    Hi zusammen, hatte das selbe Problem. Falls das Problem noch aktuell ist, schau Dir das mal an
    vbarchiv.net/tipps/tipp_2375-k…s-befehle-ansprechen.html

    Funktioniert ohne jeglichen Treiber mit fast allen POS Druckern. Ich habe einen 4610 und bis auf den Grafikdruck, der leider noch nicht funktioniert, arbeitet die Bibliothek super.

    Ich hoffe ich konnte Dir und anderen helfen.

    hi Net_checker!
    Guter Tip; leider hat die Sache einen kleinen Haken. man kann nur drucken, aber die Sensoren nicht abfragen. (z.B.: Drucker offen, Papier fast aus, Kassenlade offen u.s.w.)
    aber wenn man nur drucken will ist das eine gute alternative.
    Mein Problem ist eigentlich nur, dass das Epson OPS for Net (auch die letzte Version) nur .Net Framework bis 3.5 unterstützt.
    Aber für mein Kassenprogramm reicht eigentlich das Framework 3.5 vollkommen aus.
    Auch mit den verschiedenen Betriebssystemen habe ich keine Probleme mit dem Driver, läuft von XP bis Windows 10 einwandfrei.
    Ich bin aber zuversichtlich das bald mal ein update rauskommt, dass das Aktuelle Framework unterstützt.

Facebook
Telefonspende