Imprimir open "lpt1" for output

"joda" wrote in message
news:

Como se puede hacer esto con vb2005

Open "lpt1:" For Output As #impresion

Print #impresion, Chr$(18)
Print #impresion, Chr$(27) & Chr$(33) & Chr$(40)
Print #impresion, " " & vcantidad & " " & midescripcion

Imports System.IO
...

Dim sw as New StreamWriter("lpt1:")
sw.Write(Chr(18))
sw.Write(Chr(27) & Chr(33) & Chr(40))
sw.Write(" " & vcantidad & " " & midescripcion)
sw.Close()