技術者 | 15:50VBAからAdobe ReaderでPDFファイルを印刷する。(その2)Adobe Reader 6.0 〜 8.1Sub PdfPrint(File)Dim fsoDim wShellDim PathDim oExecSet 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.GetFi