puerto='com1'
Try
Dim intFileNo As Integer = FreeFile()
FileOpen(1, "c:\escapes.txt", OpenMode.Output)
PrintLine(1, Chr(27), "p", Chr(0), Chr(25), Chr(250))
FileClose(1)
System.Diagnostics.Process.Start("print /d:" & puerto & " c:\escapes.txt")

Catch ex As Exception
MsgBox(ex.Message)
End Try

y me da este error el sistema no puede encontrar ell archivo especificado