印刷

’通常使うプリンタで印刷
Dim proc As New Process
Dim FilePath As String = "G:\b001.doc"
proc.StartInfo.FileName = filePath
proc.StartInfo.Verb = "Print"
proc.StartInfo.CreateNoWindow = True
proc.Start()
proc.WaitForExit(20000)
'プロセスが終了していなかったら終了する 
If proc.HasExited = False Then
	proc.Kill()
End If
'proc解放 
If Not proc Is Nothing Then
	proc.Dispose()
End If