Impression liste plan PDF

Bonjour à tous

je suis nouveau sur site et je vous sollicite car je bloque sur un programme VBA.

Je ne suis pas expert en VBA mais j'arrive jusqu'à maintenant à avancer en récupérant des infos sur le Net.

Voila dans le cadre de mon boulot je dois réaliser une macro pour imprimer une liste de pdf en recto verso.

Description rapide de la macro:

_ sélection d'un numéro dans le classeur excel de départ

_ On récupère ce numéro pour ouvrir un autre tableau contenant une liste de numéro

_ Chaque numéro de cette liste corresponds à un plan en PDF

_ On ouvre chaque PDF de cette liste avec adobe reader

_ Impression en recto verso du plan

_fermeture d'Adobe

La premiere partie se passe bien.

Je bloque sur l'impression en recto verso (duplex). Ci dessous le morceau de code pour imprimer dans adobe puis sa fermeture.

Pour info je suis sur Excel 2010 - Win 7 64bits

Je ne sais pas comment changer la propriété de l'imprimante.

Merci pour votre aide

Sub IMPRIMER_PDF()

Dim FICHIER_A_IMPRIMER As String

Dim Hdl As Long

Dim Rep

Hdl = FindWindow(vbNullString, "Adobe Reader")

Hdl = ShellExecute(hwnd, "print", lResult, vbNullString, vbNullString, 1)

KillProcess "AcroRd32.exe"

End Sub

Public Function KillProcess(ByVal ProcessName As String) As Boolean

Dim svc As Object

Dim sQuery As String

Dim oproc

Set svc = GetObject("winmgmts:root\cimv2")

sQuery = "select * from win32_process where name= '" & ProcessName & "'"

For Each oproc In svc.ExecQuery(sQuery)

oproc.Terminate

On Error Resume Next

Set svc = Nothing

End Function

Une idée en passant que j'ai pas exploré faute de connaissance VBA.

Est il possible de créer une imprimante temporaire avec les bons paramètres puis de la désigner comme imprimante par défaut.

Par contre je ne sais pas si en ouvrant adobe reader cette nouvelle imprimante serait prise en compte?

Faire l'impression puis un remove de l'imprimante tempo.

Si qq à une idée merci