ＰＤＦ 印刷 ＶＢＡ

いつもお世話になっております
ＶＢＡで特定のFolderの中にあるＰＤＦのみ
印刷するにはどうすればよいか
おしえてくれませんでしょうか

下記のコード実行してもだめでした
メモ帳にvbsで保存しても

Option Explicit
Dim f, gf, so, ws
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder("C:\temp")
Set ws = CreateObject("WScript.Shell")
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "pdf" Then
ws.Run ("AcroRd32 /t " & gf & "\" & f.Name)
End If
Next
Set ws = Nothing
Set gf = Nothing
Set so = Nothing

No.2 ベストアンサー 回答者： Qchan1962 回答日時： 2020/07/07 23:00

＃１　

確かめたら違いました。すみません。
= "AcroRd32.exe /t " & gf & f.Name & " " & printerName

参考　h　ttps://www.sejuku.net/blog/99169

この回答へのお礼

いつも有難うございます。

お礼日時：2020/07/08 09:31

No.1 回答者： Qchan1962 回答日時： 2020/07/07 22:49

こんばんは、

ぱっと見で検証していませんが
ShellCommandなので
ws.Run ("AcroRd32 /t " & gf & " " & f.Name)　かな

違っていたらごめんなさい。