PDF 自動印刷

PDF の自動印刷です。

■VBS

Sub PrintPDF(file)
    Set wShell = CreateObject("WScript.Shell")
    Path = wShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\acrord32.exe\")
    Path = Replace(Path, """", "")
    Path = wShell.ExpandEnvironmentStrings(Path)
    ないしょ
    wShell.Run """" & Path & """ /n /t """ & file & """", , True
End Sub

ネットでは Acrobat Reader のウィンドウが残ったりとかの情報がありますが，ちゃんと自動印刷できます。
「ないしょ」の部分に１文入れればちゃんとウィンドウも閉じます。

■C#

ないしょ
System.Diagnostics.Process.Start(EXE パス
                               , @"/n /t PDF パス);

C# の方はちょっと端折った書き方ですが，こちらもちゃんと自動印刷します。Acrobat Reader のウィンドウは残りません。
「ないしょ」の部分は VBS と同じ方式です。
(C# でやるには VBS の関数を独自で用意しなければなりませんが)

参照