Problema de impresión lpt1

Tienes que usar APIS de momento

Public Declare Auto Function CreateFile Lib "kernel32.dll" (ByVal lpFileName
As String, ByVal dwDesiredAccess As Int32, ByVal dwShareMode As Int32, ByVal
lpSecurityAttributes As IntPtr, ByVal dwCreationDisposition As Int32, ByVal
dwFlagsAndAttributes As Int32, ByVal hTemplateFile As IntPtr) As IntPtr

Public Const GENERIC_READ As Int32 = &H80000000

Public Const GENERIC_WRITE As Int32 = &H40000000

Public Const OPEN_EXISTING As Int32 = 3

hFich = CreateFile("LPT1", GENERIC_WRITE, 0, IntPtr.Zero, OPEN_EXISTING, 0,
IntPtr.Zero)

stream = New FileStream(hFich, FileAccess.Write)

writer = New StreamWriter(stream)

writer.WriteLine("Lo que sea")

..

..

writer.Close()

stream.Close()