LPT1 y ESC/POS

este es un script de vb te va a server para que te ingenies tu solucion...

Sub Imprimir()
Dim objFSO
Dim objStream
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.CreateTextFile("LPT1")
objStream.Write chr(27) & "!" & chr(11)
objStream.Writeline "Este es un ejemplo de impresion diercta en el
puerto lpt1"
objStream.Writeline "este ejemplo es para impresoras fiscales"
objStream.Writeline "que tienen navaja de corte y"
objStream.Writeline "un cajo de donero conectada"
objStream.Writeline ""
objStream.Writeline ""
objStream.Writeline ""
objStream.Writeline Chr(27) & "m" & Chr(109) ' este es un corte de
ticket, no completo
objStream.Writeline Chr(27) & "p" & CHR(&H0) & CHR(&H64) & CHR(&H64)
' este abre el cajon del dinero
Set objStream = Nothing
Set objFSO = Nothing
End Sub

"Pablo Rodríguez" escribió en el mensaje
news:

Estoy migrando una aplicación de VB6 a .NET 2005, la misma trabaja con
impresoras fiscales EPSON TMU-950 por puerto paralelo.

En VB6 se abría el puerto de la misma manera que se hacía para abrir un
archivo, pero en .Net no encuentro la manera de hacerlo.

Lo que necesito es enviar al puerto las distintas secuencias de comandos
ESC para realizar la impresió. Estuve probando con inpout32.dll, la cual
ya utilizaba en VB6 para chequear el estado de la impresora, pero cuando
intento escribir en el puerto nada pasa en la impresora.
Supongo que es porque hay que cerrar el puerto para que la misma funcione.


Alguna ayuda o sugerencia?

Muchas gracias, por adelantado.

Ya lo pruebo y te digo si funciona.

Muchas Gracias!!!



"Jesus Ramon Lopez Dominguez" escribió en el mensaje
news:%

este es un script de vb te va a server para que te ingenies tu solucion...

Sub Imprimir()
Dim objFSO
Dim objStream
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.CreateTextFile("LPT1")
objStream.Write chr(27) & "!" & chr(11)
objStream.Writeline "Este es un ejemplo de impresion diercta en el
puerto lpt1"
objStream.Writeline "este ejemplo es para impresoras fiscales"
objStream.Writeline "que tienen navaja de corte y"
objStream.Writeline "un cajo de donero conectada"
objStream.Writeline ""
objStream.Writeline ""
objStream.Writeline ""
objStream.Writeline Chr(27) & "m" & Chr(109) ' este es un corte de
ticket, no completo
objStream.Writeline Chr(27) & "p" & CHR(&H0) & CHR(&H64) &
CHR(&H64) ' este abre el cajon del dinero
Set objStream = Nothing
Set objFSO = Nothing
End Sub

"Pablo Rodríguez" escribió en el mensaje
news:

Estoy migrando una aplicación de VB6 a .NET 2005, la misma trabaja con
impresoras fiscales EPSON TMU-950 por puerto paralelo.

En VB6 se abría el puerto de la misma manera que se hacía para abrir un
archivo, pero en .Net no encuentro la manera de hacerlo.

Lo que necesito es enviar al puerto las distintas secuencias de comandos
ESC para realizar la impresió. Estuve probando con inpout32.dll, la cual
ya utilizaba en VB6 para chequear el estado de la impresora, pero cuando
intento escribir en el puerto nada pasa en la impresora.
Supongo que es porque hay que cerrar el puerto para que la misma
funcione.


Alguna ayuda o sugerencia?

Muchas gracias, por adelantado.

Funcionó perfectamente, ahora sólo me queda migrar los procedimientos que
tenía escritos en VB6.

De nuevo, muchas gracias!

__________________________
"Jesus Ramon Lopez Dominguez" escribió en el mensaje
news:%

este es un script de vb te va a server para que te ingenies tu solucion...

Sub Imprimir()
Dim objFSO
Dim objStream
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objStream = objFSO.CreateTextFile("LPT1")
objStream.Write chr(27) & "!" & chr(11)
objStream.Writeline "Este es un ejemplo de impresion diercta en el
puerto lpt1"
objStream.Writeline "este ejemplo es para impresoras fiscales"
objStream.Writeline "que tienen navaja de corte y"
objStream.Writeline "un cajo de donero conectada"
objStream.Writeline ""
objStream.Writeline ""
objStream.Writeline ""
objStream.Writeline Chr(27) & "m" & Chr(109) ' este es un corte de
ticket, no completo
objStream.Writeline Chr(27) & "p" & CHR(&H0) & CHR(&H64) &
CHR(&H64) ' este abre el cajon del dinero
Set objStream = Nothing
Set objFSO = Nothing
End Sub

"Pablo Rodríguez" escribió en el mensaje
news:

Estoy migrando una aplicación de VB6 a .NET 2005, la misma trabaja con
impresoras fiscales EPSON TMU-950 por puerto paralelo.

En VB6 se abría el puerto de la misma manera que se hacía para abrir un
archivo, pero en .Net no encuentro la manera de hacerlo.

Lo que necesito es enviar al puerto las distintas secuencias de comandos
ESC para realizar la impresió. Estuve probando con inpout32.dll, la cual
ya utilizaba en VB6 para chequear el estado de la impresora, pero cuando
intento escribir en el puerto nada pasa en la impresora.
Supongo que es porque hay que cerrar el puerto para que la misma
funcione.


Alguna ayuda o sugerencia?

Muchas gracias, por adelantado.