Abrir varios pdf mandarlos a imprimir y cerrarlos de nuevo con una macro desde excel

Sub print_pdf()
Dim objShell As Object 'declaración de variables
'Application.ScreenUpdating = False
Set objShell = CreateObject("WScript.Shell") 'variable para ejecutar programa acrobat
Set navegador = CreateObject("shell.application")
carpeta = navegador.browseforfolder(0, _
"SELECCIONE UNA CARPETA", 0, "C:\").items.Item.Path
ChDir carpeta & "\"
archi = Dir("*.pdf")
Range("D3").Select
Do While archi <> ""
ActiveCell.Value = archi
objShell.Run archi 'ejecutar acrobat mas archivo
'ThisDocument.PrintOut
'ShellExecute Hwnd, "print", archi, vbNullString, vbNullString, 1
Workbooks("printpdf.xls").Activate ' ir al archivo xls y poner los datos
ActiveCell.Offset(0, 1).Select
ActiveCell.Value = celda
ActiveCell.Offset(1, -1).Select
'Windows(archi).Close False ''cerrar archivo
archi = Dir()
Loop
'Application.ScreenUpdating = True
End Sub

anexo la macro :me falta que imprima cada archivo que abre y lo cierre ,tengo en comillas el código que oculta el procedimiento para cuando termine quitar comillas.