Open "LPT1" For Output As 1

No tengo una impresora a mano, y menos un cajón de monedas, para probar el
código, pero haciendo una actualización del código de Visual Basic 6.0,
prueba a ejecutar lo siguiente:

FileOpen(1, "LPT1", OpenMode.Output)
PrintLine(1, Chr(27) & Chr(112) & 0) ' 'abrir gaveta (cajon)
PrintLine(1, " " & "Empresa")
PrintLine(1, " se dedica a ")
PrintLine(1, " " & "AAA")
PrintLine(1, " NIF : 11111111-A")
PrintLine(1, " Fecha : " & Today)
PrintLine(1, "")
PrintLine(1, "Articulo " & " recio " & " Cantidad " & " Total ")
PrintLine(1, "" & " ")


Enrique Martínez
[MS MVP - VB]

Nota informativa: La información contenida en este mensaje, así como el
código fuente incluido en el mismo, se proporciona «COMO ESTÁ», sin
garantías de ninguna clase, y no otorga derecho alguno. Usted asume
cualquier riesgo al poner en práctica, utilizar o ejecutar lo recomendado o
sugerido en el presente mensaje.

"Fernando" escribió en el mensaje
news:OW6U0%
Mostrar la cita

Hola grupo, gracias de antemano; en VB6 muchas veces para imprimir un
ticket lo hacia de la siguiente forma :

Open "LPT1" For Output As 1
Print #1, Chr$(27) + Chr$(112) & 0 ' 'abrir gaveta (cajon)
Print #1, " " & "Empresa"
Print #1, " se dedica a "
Print #1, " " & "AAA"
Print #1, " NIF : 11111111-A"
Print #1, " Fecha : " & Date
Print #1, ""
Print #1, "Articulo " & " Precio " & " Cantidad " & " Total "
Print #1, "" & " "

etc, etc.

¿Existe alguna forma de hacer esto en vb.net?
Desde ya muchisimas gracias. Saludos

Fernando