Consulta
Publicado por Lunnaticoo (5 intervenciones) el 01/10/2008 17:18:50
Hola..
disculpen las molestias..
Resulta que estoy haciendo un driver para una impresora fiscal y estoy un poco complicado ya que los ejemplos que tengo están hechos en v 6.0 y la aplicación a la que le tengo que integrar el driver esta en .net.
El problema es que al reproducir el ejemplo en visual.net este no hace nada de nada..
El codigo que estoy probando es muy simple, lo agregare a continuación..
Otra consulta que hace Chr$( ).. ya que el .net me da error con el $ ..!!
EpsonFPHostControl1.CommPort = 0 ‘com1
EpsonFPHostControl1.BaudRate = 1 ‘9600
EpsonFPHostControl1.ProtocolType = "1"
bAnswer = EpsonFPHostControl1.OpenPort
If bAnswer = False Then
MsgBox "error1", vbInformation, "Atención"
End If
Me.EpsonFPHostControl1.AddDataField Chr$(&H7) & Chr$(&H27)
Me.EpsonFPHostControl1.AddDataField Chr$(&H0) & Chr$(&H1)
bAnswer = Me.EpsonFPHostControl1.SendCommand
If bAnswer = False Then
MsgBox "erro2", vbInformation, "Atención"
End If
disculpen las molestias..
Resulta que estoy haciendo un driver para una impresora fiscal y estoy un poco complicado ya que los ejemplos que tengo están hechos en v 6.0 y la aplicación a la que le tengo que integrar el driver esta en .net.
El problema es que al reproducir el ejemplo en visual.net este no hace nada de nada..
El codigo que estoy probando es muy simple, lo agregare a continuación..
Otra consulta que hace Chr$( ).. ya que el .net me da error con el $ ..!!
EpsonFPHostControl1.CommPort = 0 ‘com1
EpsonFPHostControl1.BaudRate = 1 ‘9600
EpsonFPHostControl1.ProtocolType = "1"
bAnswer = EpsonFPHostControl1.OpenPort
If bAnswer = False Then
MsgBox "error1", vbInformation, "Atención"
End If
Me.EpsonFPHostControl1.AddDataField Chr$(&H7) & Chr$(&H27)
Me.EpsonFPHostControl1.AddDataField Chr$(&H0) & Chr$(&H1)
bAnswer = Me.EpsonFPHostControl1.SendCommand
If bAnswer = False Then
MsgBox "erro2", vbInformation, "Atención"
End If
Valora esta pregunta


0