Device - Windows CE - CipherLab 8600
Printer - Apex 2 - Bluetooth Communication
Developmet Tool - VB.NET Mobile
Problem- When I print - occasionally System / Unit Hang/Freeze.
After Days of research and trials.
This is my solution Solution.
- Change my Framework to 3.5
- Use Thread in Printing
Why? - Because in Mobile Device the application run in threads not in process.
The Application Freeze/Hang because there are to much process in the thread.
Maybe the unit can't handle it.
How?
- The problem in thread is that in cannot save / include your variables.
- So what I did is I save my printout into a text file then open it in the new thread
Example Code:
Public Sub print()
createtxt()
Dim t As System.Threading.Thread = New System.Threading.Thread(AddressOf printbilltr) ' Create New Thread
t.Start() ' Start Thread
End Sub
Public Sub createtxt()
Dim owrite As System.IO.StreamWriter
Dim vprint
owrite = System.IO.File.CreateText("\Diskonchip\4print.txt")
vprint = vprint & "STATMENT OF ACCOUNT" & vbCrLf
vprint = vprint & "NAME " & p_name & vbCrLf
vprint = vprint & "ADDRESS " & p_addr & vbCrLf
owrite.Write(vprint)
owrite.Close()
End Sub
Public Sub printbilltr()
Dim SePo As New IO.Ports.SerialPort ' Create Port
Dim oread As System.IO.StreamReader
Dim ychar
Try
oread = System.IO.File.OpenText("\Diskonchip\4print.txt")
' Set Port Setting
With SePo
.PortName = "COM6"
.BaudRate = 115200
.DataBits = 8
.Parity = IO.Ports.Parity.None
.StopBits = IO.Ports.StopBits.Two
.Handshake = IO.Ports.Handshake.None
.WriteTimeout = 5000
.WriteBufferSize = 10000
End With
While Not oread.EndOfStream()
ychar = oread.ReadLine()
If Not SePo.IsOpen Then
SePo.Open()
End If
SePo.Write(ychar & vbCrLf)
System.Threading.Thread.Sleep(5) ' Little Delay
End While
oread.Close()
Catch ex As Exception
Dim aaa
aaa = MsgBox("Printer Error" & vbCrLf & "- See Printer Status" & vbCrLf & "- Check Bluetooth is On" & vbCrLf & "- ReseT UniT if Needed")
End Try
End Sub
Hope This Helps..
Posts
.JPG)