Dim s As String = Application.StartupPath + "\temp.rtf"
		Dim p As New Process
		Dim psi As New ProcessStartInfo(s)
		psi.Verb = "print"
		p.StartInfo = psi
		psi.CreateNoWindow = True
		psi.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden 
		Me.richTextBox1.SaveFile(s)
		Application.DoEvents 
		p.Start() 
		p.WaitForExit() 
		Application.DoEvents 
		Io.File.Delete(s)