Dim LANPRINTER As Socket 'Network library
Dim AStreams As AsyncStreams 'RandomAccessFile library
LANPRINTER.Initialize("LANPRINTER")
LANPRINTER.Connect(PIp, Pport, 0) '100=Printer address, 9100=Port number (please look up port number)
Sub LANPRINTER_Connected (Successful As Boolean)
If Successful Then
AStreams.Initialize(LANPRINTER.InputStream, LANPRINTER.OutputStream, "AStreams")
AStreams.Write(PrintTicket1(Sales_Code1).GetBytes("UTF8"))
Sleep(2000)
AStreams.Close
TMT20II.Close
End If
End Sub
Sub AStreams_NewData (Buffer() As Byte)
Dim msg As String
msg = BytesToString(Buffer, 0, Buffer.Length, "UTF8")
LogDebug("AStreams_NewData = " & msg)
End Sub
Sub AStreams_Error
BCT.Show(LastException.Message)
End Sub