Ayuda Impresion Directa en LPT1 desde VB.NET

18/12/2006 - 18:30 por Camilo A. Villa N. | Informe spam
Hola necesito realizar impresion desde VisualBasic.NET en una impresora
EPSON TMU-220PD (Las que se utilizan en los POS o TPV para impresion de
Tickets)

Encontre un codigo en VB 6.0 que dice:
Private Sub Command1_Click()

Open "LPT1" For Output As #1

Print #1, Chr(27) & "W" & Chr(1); "Hola, mundo" & Chr(27) & "W" &

Chr(0) 'Imprime en ancho doble

Print #1, Chr(15) & "Nro. de boleta" & Chr(17) 'Imprime condensado

Close #1

End Sub

Pero necesito traducirlo a VB.NET por que se requiere que sea la impresion
de esta forma, ya que el objeto PrintDocument que es el que se utiliza
ultimamente me imprime demasiado lento y el tiempo es algo que preocupa a la
empresa para la cual trabajo...

Si alguien sabe como traducir este tipo de codigo a .NET...

Gracias

Camilo Villa Naranjo.

P.D.
Esta es la primera vez en mi experiencia laboral que tengo que imprimir
algo, todas las aplicaciones en las que me he desempenado hasta el momento
no habian requerido de mi este tipo de conocimientos, pero hoy si... y no se
donde y como abordarlo... ayudenme...
 

Leer las respuestas

#1 Carlos Gómez
18/12/2006 - 19:39 | Informe spam
Yo tengo una solucion, un tanto chapuza, pero que funciona bien. La uso
en general como remedio para cuando una impresora de tickets se niega a
imprimir. Lo que quiero imprimir, lo guardo en un archivo de texto
plano y lo lanzo a lo bruto mediante msdos o como quiera que se llame
ahora.


Shell("print /d:LPT1 " & directorioDeTrabajo & "\temp.txt")

Obviamente, si quieres imprimir dibujos, colores o cualquier otra cosa,
esto no vale. Pero para salir del paso mientras encuentro el problema
es perfecto.

Ah, ten cuidado con los enter (chr(13)), que las impresoras de ticket
no los interpretan como salto de linea. Tienes que cambiarlos por
chr(10)

Preguntas similares