2017年11月
      1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30    
無料ブログはココログ

« Adobe Reader 7.0のPDFファイルの関連付けを改善する。 | トップページ | エクスプローラで「元に戻す」の内容は? »

2007年1月 9日 (火)

スクリプトからDDEを使ってPDFファイルを印刷する。

スクリプトからDDEを使うパラダイムです。

VBAならDDEExecute()などがあってDDEが使えますが、スクリプトからは?

関連付けで使える範囲なら、スクリプトからも関連付け経由で使えます。

PdfPrint.VBS ファイル

Set wShell=CreateObject("WScript.Shell")
Path="C:\Program Files\Adobe\Acrobat 7.0\Reader\AcroRd32.exe"
wShell.RegWrite "HKCR\*\shell\PdfPrint\command\",""""&Path&"""","REG_SZ"
wShell.RegWrite "HKCR\*\shell\PdfPrint\extended","","REG_SZ"
wShell.RegWrite "HKCR\*\shell\PdfPrint\ddeexec\","[FilePrintSilent(""%1"")]","REG_SZ"
wShell.RegWrite "HKCR\*\shell\PdfPrint\ddeexec\application\","Acroview","REG_SZ"
wShell.RegWrite "HKCR\*\shell\PdfPrint\ddeexec\ifexec\","[FilePrintSilent(""%1"")][AppExit]","REG_SZ"
wShell.RegWrite "HKCR\*\shell\PdfPrint\ddeexec\topic\","Control","REG_SZ"
Set Shell=CreateObject("Shell.Application")
Shell.ShellExecute WScript.Arguments.Item(0),,,"PdfPrint"

※DDEは多重処理に難があります。なので、上の例でも複数ファイルに対応できません。

« Adobe Reader 7.0のPDFファイルの関連付けを改善する。 | トップページ | エクスプローラで「元に戻す」の内容は? »