Gracias Kuk por tu respuesta voy a tratar de explicar y pongo un parte del codigo en visual basic que funciona con la ocx que provee epson , el string ha enviar deben ser valores en hexadecimal por lo que veo de la linea que dice LINEA-ESTADO la ocx se come el valor que dice (01) ... 03 Comandobis PIC X VALUE X"01"
de la linea LINEA-EXTRA se come los valores nulos y me agrega "00"
Las lineas que pege en power cobol corresponde al comando estado
Voy a pegar aqui la linea de visual que funcionan (comando x , comando z y comando estado) :
Código VB:
Case 0
'---------------------------
' Cierre X
'---------------------------
sCmd = Chr$(&H8) + Chr$(&H2)
MsgBox sCmd
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
sCmdExt = Chr$(&HC) + Chr$(&H21)
' sCmdExt = Chr$(&H0) + Chr$(&H1)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmdExt)
If bAnswer Then bAnswer = Me.EpsonFP.SendCommand
Call FPDelay
If Me.EpsonFP.ReturnCode <> 0 Then ShowMsg
Case 1
'---------------------------
' Cierre Z
'---------------------------
sCmd = Chr$(&H8) + Chr$(&H1)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
sCmdExt = Chr$(&HC) + Chr$(&H0)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmdExt)
If bAnswer Then bAnswer = Me.EpsonFP.SendCommand
Call FPDelay
If Me.EpsonFP.ReturnCode <> 0 Then ShowMsg
Case 6
'---------------------------
' Estado
'---------------------------
sCmd = Chr$(&H0) + Chr$(&H1)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
sCmdExt = Chr$(&H0) + Chr$(&H0)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmdExt)
If bAnswer Then bAnswer = Me.EpsonFP.SendCommand
Call FPDelay
ShowMsg
desde ya muchas gracias por su ayuda