Ola pessoal...
Com o código abaixo a minha impressora esta se fazendo de morta....
Dim IdFile As Integer = FileSystem.FreeFile
FileSystem.FileOpen(IdFile, "
\\Servidor\Epson LX-300",
OpenMode.Append, OpenAccess.Write, OpenShare.Shared)
FileSystem.PrintLine(IdFile, "Testando a Impressão")
FileSystem.Reset()
Deve estar sobrando ou faltando alguma coisa para a danada funcionar.
Obrigado pela ajuda...