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    
無料ブログはココログ

« コマンドラインでPDFファイルを印刷する。(その3) | トップページ | CDやDVDドライブを開く、閉じる。 »

2007年7月 5日 (木)

VBAからAdobe ReaderでPDFファイルを印刷する。(その2)

Adobe Reader 6.0 ~ 8.1

Sub PdfPrint(File)
Dim fso
Dim wShell
Dim Path
Dim oExec
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)
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"
  Application.Wait Now + TimeSerial(0, 0, 1)
Loop
End Sub

« コマンドラインでPDFファイルを印刷する。(その3) | トップページ | CDやDVDドライブを開く、閉じる。 »