Como imprimir en modo texto directamente a la impresora??

dim cadena as string="Esto es lo que voy a imprimir"
cadena &=chr(10) & "Salto de linea = chr(10)"
Dim sw1 As System.IO.StreamWriter = "c:\temp.txt")
sw1.Write(cadena)
sw1.Close()
Try
Shell("print /d:LPT1 c:\temp.txt")
Catch e As System.IO.FileNotFoundException
MsgBox(e.Message)
End Try


"Alejandro" escribió en el mensaje
news:2a0101c507e7$f4561850$

como le hago para abrir un puerto de impresion ya sea de
red o local. para imprimir en modo texto.