VBA　プリンター指定印刷とPDF同期印刷

Private Sub Form_Load()
 'フォーム読み込み時
 Dim prt As Printer
 'すべてのプリンタを列挙してコンボボックスの値集合ソースに追加
 For Each prt In Application.Printers
  Me.リスト10.AddItem prt.DeviceName
 Next prt
End Sub

Private Sub コマンド12_Click()
 '[印刷]ボタンクリック時
 'プリンタ変数を宣言
 Dim prtDefault As Printer
 '現在のプリンタ設定を退避
 Set prtDefault = Application.Printer 'これがデフォルトプリンタ
 '選択されたプリンタの情報を設定
 Set Application.Printer = Application.Printers(Me.リスト10.Value)

 '印刷するぞ 
'シェルオブジェクトの作成
 Dim shellObj As Object
 Set shellObj = CreateObject("WScript.shell")
 Dim exeStm As String
 'コマンドラインの文字列を作成する
 exeStm = "AcroRd32.exe /t" & " " & "C:\Users\XXXXX\Desktop\test.pdf" & " " & Application.Printer.DeviceName
 shellObj.Run (exeStm) '印刷する
 'プリンタ設定を元に戻す
 Set Application.Printer = prtDefault
 Set prtDefault = Nothing
 End Sub

Private Sub ぼたん_Click()
 'プリンタ設定
Dim prtDefault As Printer
 '現在のプリンタ設定を退避
Set prtDefault = Application.Printer 'これがデフォルトプリンタ
 '印刷するぞ
 'Shell Objestの作成
Dim shellObj As Object
Set shellObj = CreateObject("WScript.shell")
Dim exeStm As String
 'Acrobat Readerの一つ目インスタンスを起動
shellObj.Run "AcroRd32.exe"
 '起動するまで長めに待機
Sleep 5000 'Sleep　APIは別途Declearしておく
 'Acrobat Readerでプリントアウトするコマンドを三つ作っておく。
 '/n インスタンスを新規で作成するオプション
 '/t 印刷オプション
exeStm = "AcroRd32.exe /n /t" & " " & "C:\Users\xxx\Desktop\test.pdf" & " " & Application.Printer.DeviceName
shellObj.Run (exeStm), True, True '同期処理で印刷
exeStm = "AcroRd32.exe /n /t" & " " & "C:\Users\xxx\Desktop\test2.pdf" & " " & Application.Printer.DeviceName
shellObj.Run (exeStm), True, True '同期処理で印刷
exeStm = "AcroRd32.exe /n /t" & " " & "C:\Users\xxx\Desktop\test3.pdf" & " " & Application.Printer.DeviceName
shellObj.Run (exeStm), True, True '同期処理で印刷
Set prtDefault = Nothing
Set shellObj = Nothing
End Sub

myExcel.ActiveWorkbook.PrintOut ActivePrinter:=Me.リスト10

Option Explicit
Dim f, gf, so, ws
dim cmdString
Set so = CreateObject("Scripting.FileSystemObject")
Set gf = so.GetFolder(".")
Set ws =CreateObject("WScript.Shell")
Dim sapi
Set sapi = CreateObject("SAPI.SpVoice")
	'AcroRd32.exe一つ起動しておく。
ws.Run "AcroRd32.exe"
WScript.Sleep 5000
	'フォルダ内のPDFファイルをそれぞれ/n/tで印刷をループさせる。
For Each f In gf.Files
If LCase(so.GetExtensionName(f.Name)) = "pdf" Then
	'上手く印刷が終わるまで同期してくれる。
cmdString = "AcroRd32.exe /n /t " & """" & f.path & """"
ws.Run cmdString,true,true
sapi.Speak "ichimai owattayo"
End If
Next
sapi.Speak "zenbu owattayo"
Set gf = Nothing
Set so = Nothing
Set ws = Nothing
Set sapi = Nothing
	'MsgBox("Finished Printing")