Dim file_name As String = Application.StartupPath() & "/text.dat"Dim command as String = "type " + file_name + " > prn"Dim proc As Process = New System.Diagnostics.Process()proc.StartInfo = New System.Diagnostics.ProcessStartInfo("cmd", "/c " & command)proc.StartInfo.RedirectStandardOutput = Trueproc.StartInfo.RedirectStandardError = Trueproc.StartInfo.UseShellExecute = Falseproc.StartInfo.CreateNoWindow = Trueproc.EnableRaisingEvents = Falseproc.Start()proc.WaitForExit()