Epson H6000III - TM Two-color Thermal Line - Sample Program

Rev. E Application Development Information for UPOS 5-3
TM-H6000III Technical Reference Guide
5.1.2 Sample Program
Below is as example of how to use Slip & MICR & Slip image scanner Combination with OPOS
ADK Ver.2.30 or later. This program is based upon the description “5.1.1 Recommended Flow
(page 5-2)”
Private Sub Command1_Click()
Dim strDum As String
Dim lDum As Long
Dim iDum As Integer
Dim lDataSize As Long
strDum = "" 'initialize
With OPOSCheckScanner1
'Selects the slip scanner
lDum = CHK_DI_MODE_CHECKSCANNER
.DirectIO CHK_DI_CHANGE_MODE, lDum, strDum
'This sample scans an image with Bi-tonal format
iDum = CHK_CL_MONO
.Color = iDum
'This sample selects JPEG format for image data
iDum = CHK_IF_JPEG
.ImageFormat = iDum
'selects the "sharpness" process is enabled
lDum = CHK_DI_SHARPNESS_ON
.DirectIO CHK_DI_SHARPNESS_IMAGE, lDum, strDum
'If you would like to specify other properties of
'the OPOSCheckScanner, specify this timing.
End With
OPOSPOSPrinter1.AsyncMode = False 'For slip printing
'Paper preparation procedure
While OPOSMICR1.BeginInsertion(3000) = OPOS_E_TIMEOUT
MsgBox "Please insert a check."
DoEvents
Wend
OPOSMICR1.EndInsertion
'* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
'This sample omits the MICR character reading result process.
'* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
(To be continue to the next page)
Setting the check scanner
Setting the AsyncMode
Check insertion & MICR reading