Epson TM-H6000II, Technical Reference Manual

Page: 101 / 122

Rev. A Application Development Information for OPOS
5-5
TM-H6000II Technical Reference Guide
5.2.2 Sample Program
Below is as example of how to use Slip & MICR Combination with OPOS ADK Ver.2.20 SP3.
Dim RC As Long
‘Return Code
Dim I = 1 as Integer
OPOSPOSPrinter1.AsyncMode = False
‘Paper preparation procedure
Do
RC = OPOSMICR1.BeginImsertion(3000)
If RC = OPOS_SUCCESS Then
Exit Do
Else If RC = OPOS_E_TIMEOUT Then
MsgBox “Please insert a check.”
Else
MsgBox “insert error.”
Exit Do
End If
Loop
OPOSMICR1.EndInsertion
With OPOSPOSPrinter1
‘Endorsement Printing
.PrinterNormal PTR_S_SLIP, Chr(&H1B) & “Endorsement Printing” & vbLf
‘Change of the printing side
.ChangePrintSide PTR_PS_SODE1
.PrinterNormal PTR_S_SLIP, Chr(&H1B) & “Slip Printing” & vbLf
End With
RC = OPOSMICR1.BeginRemoval(3000)
If RC = OPOS_E_TIMEOUT Then
MsgBox “Please insert a check.”
Else If RC <> OPOS_SUCCESS Then
MsgBox “remove error.”
Exit Sub
End If
Do While OPOSPOSPrinter1.EndRemoval <> OPOS_SUCCESS
MsgBox “Please remove a check.”
I = I + 1
If I = 5 Then Exit Do
Loop