2017年9月
          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
無料ブログはココログ

« コマンドラインでPDFファイルを印刷する。(その2) | トップページ | VBAからAdobe ReaderでPDFファイルを印刷する。(その2) »

2007年7月 4日 (水)

コマンドラインでPDFファイルを印刷する。(その3)

/tでなく、/pを使うスクリプト。

Adobe Reader 6.0 ~ 8.1 用

PDF印刷.VBS PDFファイル...

Set fso=CreateObject("Scripting.FileSystemObject")
Set wShell=CreateObject("WScript.Shell")
Path=wShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\acrord32.exe\")
Path=Replace(Path,"""","")
Path=wShell.ExpandEnvironmentStrings(Path)
For Each File In WScript.Arguments
  File=fso.GetFile(File).Path
  Set oExec=wShell.Exec(""""&Path&""" /n /p /h """&File&"""")
  Do While oExec.Status=0
    If wShell.AppActivate(oExec.ProcessID) Then wShell.SendKeys "^q"
    WScript.Sleep 1000
  Loop
Next

アプリを終了させるために、SendKeysを使用します。

« コマンドラインでPDFファイルを印刷する。(その2) | トップページ | VBAからAdobe ReaderでPDFファイルを印刷する。(その2) »