ocx TM-U220AF
Publicado por PabloLuis (23 intervenciones) el 25/08/2008 21:08:17
Hola, estoy utilizando vfp 6.0. Tengo un problema con la impresora Epson TM-U220AF, esta viene con un ocx que ya agregue al formulario como olecontrol. De la pagina de epson se pueden descargar ejemplos en visual basic y estos funcionan perfectamente. El problema es que cuando quiero reproducir el codigo en vfp no imprime nada. El protocolo indica que hay que mandar un codigo de comando (2 bytes) mas otros 2 bytes. En vb el codigo es el siguiente
Dim sCmd As String
Dim sCmdExt As String
Dim bAnswer As Boolean
bAnswer = True
sCmd = Chr$(&H8) + Chr$(&H2)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
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
en vfp
sCmd = ""
sCmdExt = ""
bAnswer = .T.
sCmd = chr(0x8) + chr(0x2)
If bAnswer
bAnswer = ThisForm.OleControl1.AddDataField(sCmd)
Endif
sCmdExt = chr(0x0) + chr(0x1)
If bAnswer
bAnswer = ThisForm.OleControl1.AddDataField(sCmdExt)
Endif
If bAnswer
bAnswer = ThisForm.OleControl1.SendCommand
Endif
ThisForm.Delay
If ThisForm.Printer.ReturnCode <> 0
Messagebox(str(ThisForm.OleControl1.ReturnCode))
Endif
Dim sCmd As String
Dim sCmdExt As String
Dim bAnswer As Boolean
bAnswer = True
sCmd = Chr$(&H8) + Chr$(&H2)
If bAnswer Then bAnswer = Me.EpsonFP.AddDataField(sCmd)
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
en vfp
sCmd = ""
sCmdExt = ""
bAnswer = .T.
sCmd = chr(0x8) + chr(0x2)
If bAnswer
bAnswer = ThisForm.OleControl1.AddDataField(sCmd)
Endif
sCmdExt = chr(0x0) + chr(0x1)
If bAnswer
bAnswer = ThisForm.OleControl1.AddDataField(sCmdExt)
Endif
If bAnswer
bAnswer = ThisForm.OleControl1.SendCommand
Endif
ThisForm.Delay
If ThisForm.Printer.ReturnCode <> 0
Messagebox(str(ThisForm.OleControl1.ReturnCode))
Endif
Valora esta pregunta


0