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