Epson TM H6000 Technical Reference - Page 101
Sample Program
View all Epson TM H6000 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 101 highlights
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 Dim I = 1 as Integer 'Return Code 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 Rev. A Application Development Information for OPOS 5-5