Visual Basic.NET - Impresora termica

   
Vista:

Impresora termica

Publicado por Lunnaticoo (17 intervenciones) el 17/12/2008 16:27:36
Hola..
Resulta que tengo el siguiente codigo para imprimir en una impresora termica, pero no hay caso, me sale error en el puerto que estoy usando.. " FileOpen(Fichero, "COM1", OpenMode.Output)"

este es el codigo..

Dim Fichero As Integer
Fichero = FreeFile
FileOpen(Fichero, "COM1", OpenMode.Output)
PrintLine(Fichero, "******** GRACIAS POR SU VISITA ********")
PrintLine(Fichero, "---------------------------------------")
PrintLine(Fichero, "TIENDA PRUEBA")
PrintLine(Fichero, "Carmelo nº15")
PrintLine(Fichero, "48100 Mungia - Bizkaia")
PrintLine(Fichero, "Tlfs: 77 777 77 77")
PrintLine(Fichero, "CIF: 11111111")
PrintLine(Fichero, Chr(&H1Bs) & Chr(&H64s) & Chr(&H4s)) 'linea en blanco
PrintLine(Fichero, TAB, Chr(29) & Chr(86) & "0") 'cortar papel
FileClose(Fichero)

Ayuda porfa..
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder