Discussion :

[qumale07]

Bonjour
j'utilise Excel 2010 avec Windows 7 - 64 bits.
Je souhaite à partir d'Excel ouvrir un plan PDF et pouvoir l'imprimer avec Adobe Reader en recto verso.
J'utilise une macro en VBA.
Je ne suis pas expert en VBA voir même débutant, mais en fouillant le Net je ne suis pas loin de ce que je veux.

Voici ce que fait la macro:
_A partir d'un fichier Excel je sélectionne un numéro de nomenclature (Userform).
_ Ce numéro ouvre un nouveau classeur dans lequel figure la décomposition de la nomenclature.
_ Je balaye la liste des articles et j'ouvre le plan PDF associé.
_ Ouverture d'Adobe reader et impression en recto verso.


Là où je bloque c'est sur l'impression recto-verso car il faut modifier les propriétés de l'imprimante par défaut au niveau de Windows.
Voici ci-dessous la fin de mon code qui me permet d'ouvrir Adobe et d'imprimer simplement.
Merci pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub IMPRIMER_PDF()
 
'proprietesImprimantes
Dim Sleep
Dim FICHIER_A_IMPRIMER As String
Dim Hdl As Long
Dim Rep
 
Hdl = FindWindow(vbNullString, "Adobe Acrobat")
Hdl = ShellExecute(hwnd, "print", lResult, vbNullString, vbNullString, 1)
Application.Wait Time + TimeSerial(0, 0, 4)
 
'nomDeLafenetre = lResult & " - " & "Adobe Reader"
'Hdl = FindWindow(vbNullString, nomDeLafenetre)
'Rep = PostMessage(Hdl, WM_CLOSE, vbNull, vbNull)
KillProcess "AcroRd32.exe"
 
End Sub

salutations

[kiki29]

Salut, si ton imprimante est prévue pour faire du R°V° : ceci est pour Word mais transposable ( pas de possibilité pour moi de tester )
Sinon il faut imprimer en 2 passes : une page sur 2 , puis retourner les sorties et imprimer la 2eme passe toujours 1 page sur 2 en ordre décroissant. Pour cela voir ici et adapter à ton contexte

[qumale07]

Bonjour
tout d'abord merci pour ta contribution.
Oui l'imprimante est bien recto verso.

J'étais tombé sur la solution Windows pour word, mais je ne comprends pas tout le code mais en plus il me semble que je vais changer que les propriétés dans Excel ou Word.
Hors une fois adobe ouvert ce sont les propriétés de l'imprimante par défaut qui sont actifs.

La deuxième solution de l'impression alternée n'est pas pratique au sein du bureau.
Par contre dans celle-ci on utilise la commande Senkeys.

En ajoutant un senkeys "Ctrl P" dans mon code j'arrive à ouvrir la fenêtre d'impression dans adobe mais après la commande de tabulation ne marche pas pour arriver jusqu'à la propriété recto-verso.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
SendKeys "^p", True
SendKeys "{TAB}", True 'ne fonctionne pas

Y a t-il une manip particulière ?

Ca pourrait être une solution plus simple.
L'inconvénient c'est que le staut recto-verso reste cocher une fois le fichier imprimé

Cdt

[Marc-L]

Bonjour, bonjour !

Avec un peu de bon sens, le plus simple est d'utiliser un driver d'imprimante pré-paramétré …




__________________________________________________________________________________________________
Tous unis, tous Charlie

[qumale07]

Bonjour,
oui sauf qu'ici il s'agit d'une imprimante réseau utilisée par différents utilisateurs.
Le fait de paramétrer par défaut en recto verso, dans les propriétés de l'imprimante, peut gêner l'impression de certains fichiers.
C'est pourquoi je cherche une solution pour mettre le recto verso que pour l'impression de mes plans.

Cdt

[Marc-L]

Rien n'empêche d'utiliser un deuxième driver pour la même imprimante, avec vraiment un tout p'tit peu de bon sens …