Macro abrir un pdf después imprimir

tengo la siguiente macro :quiero abrir todos los archivos pdf que están en una carpeta y después de abrir automáticamente también se manden a imprimir automáticamente.

tengo en comillas la instrucción para ocultar la macro para cuando termine ponerla en funcionamiento.

enteoria seria abrir pdf imprimir cerrar e intentar de nuevo

abrir pdf imprimir y cerrar

asi hasta que no allá mas archivos pdf dentro de esa carpeta.

Sub abrir_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
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