(VB.Net).NetからのPDFファイル印刷方法 - 3流プログラマのメモ書き

.Netで作ったプログラムからPDFファイルを印刷する方法です。なお、.Net自体はPDFを理解できないので、AcrobatかAdobeReaderプロセスを起動させて印刷させる方法です。(これ以外に方法があったら教えてください。)

ということで、AcrobatかAdobeReaderがインストールされていない環境では使えません。

'====レジストリからAcrobat,AcrobatReaderのパス取得====
Dim strRegPath As String
Dim rKey As RegistryKey
'キーを取得(最初にAcrobat,だめならAdobeReader)
strRegPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Acrobat.exe"
rKey = Registry.LocalMachine.OpenSubKey(strRegPath)
If rKey Is Nothing Then
strRegPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\AcroRd32.exe"
rKey = Registry.LocalMachine.OpenSubKey(strRegPath)
End If
'値(exeのパス)を取得(既定の値の場合は空文字指定)
Dim location As String
Try
'値(exeのパス)を取得(既定の値の場合は空文字指定)
location = DirectCast(rKey.GetValue(""), String)
Catch ex As NullReferenceException
Throw New ApplicationException("AcrobatもしくはAdobeReaderがインストールされていないため、PDFファイルの印刷ができません。")
Finally
'開いたレジストリキーを閉じる
rKey.Close()
End Try
 
'===Acrobatを起動し印刷===
Dim filepath As String = "D:\print_test.pdf"
Dim pro As New Process()
 
'.Net的書き方(C#でも可能な書き方)
'Acrobatのフルパス設定
pro.StartInfo.FileName = location
pro.StartInfo.Verb = "open"
'Acrobatのコマンドライン引数設定
pro.StartInfo.Arguments = " /n /t " + filepath
pro.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
'プロセスを新しいWindowで起動
pro.StartInfo.CreateNoWindow = True
'プロセス起動
pro.Start()
'プロセス終了
pro.WaitForExit(5000)
pro.Kill()
  
'VB的書き方
'Dim procID As Integer
'procID = Shell(location & " /n /t " & filepath)
'pro = Process.GetProcessById(procID)
'pro.WaitForExit(3000)
'pro.Kill()