XL 2013 Impression en recto verso d'un pdf grâce a une macro

Litan44260

XLDnaute Nouveau
Bonjour à tous

Voilà je suis en train de rechercher a faire mon impression depuis les macros et mon plus gros problème c'est l'impression des pdf

Actuellement voici mon code

VB:
Option Explicit
 
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
 
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
    (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
    , ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
 

Sub ImprimerFichierinterim()
    Dim NomFichier As String
    Dim x As Long
 
    x = FindWindow("XLMAIN", Application.Caption)

 
    ShellExecute x, "print", "********.pdf", "", "", 1


Application.Wait (Now + TimeValue("00:00:15"))
CreateObject("WScript.Shell").Run "taskkill.exe /IM AcroRd32.exe /T /F", 0

End Sub

Le code fonctionne très bien sauf le recto verso que j'arrive pas
Quelqu'un pourrais m'aider
Merci


Bonne journée a tout le monde et surtout protéger vous
 

Discussions similaires

Statistiques des forums

Discussions
299 799
Messages
1 979 188
Membres
206 609
dernier inscrit
Shayzutarot