Options d'impression d'un pdf via le shell

**mjcom** · 11/04/2011, 13h11

Bonjour,

Je suis nouveau sur ce forum. Je remercie tous les contributeurs de ce site (en particulier SilkyRoad). J'ai cherché sur ce forum et sur le Net une réponse à ma question, mais en vain.

Ma question est la suivante:
Je voudrais imprimer un pdf par macro via le shell, et spécifier les options d'impression:
- J'ouvre mon pdf via le shell
- Je lui spécifie mes options d'impression: 2 pages par feuille
- Je lance mon impression
- Je ferme le pdf

J'arrive à ouvrir le pdf, à avoir la boite de dialogue d'impression, et à fermer le pdf.
Donc je ne sais pas comment lancer automatiquement l'impression sans cliquer sur "Imprimer", et spécifier "Imprimer 2 pages par feuille".

Voici mon code:

Code :

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

1
2
3
4
5
6
7
8
 
Sub imp_pdf()
 
Dim ret As Long
ret = Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe /P  MonChemin\MonFichier.pdf", 1)
 
Shell "TASKKILL /IM AcroRd32.exe /F"
End Sub

Merci d'avance à tous pour vos réponses.

Mjcom

**mjcom** · 27/07/2011, 17h57

3 mois plus tard.
Quelqu'un a-t-il une réponse?

Merci

**mnarchi** · 27/07/2011, 19h30

bonjour,

essaie d'insérer les lignes suivantes:

Code :

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

1
2
SendKeys "{TAB 7}", True
SendKeys "2{ENTER}", True

avant de quitter

bonne chance

**mjcom** · 28/07/2011, 11h09

Merci de cette réponse.
Rien ne se passe. Dois-je activer une référence pour que les SendKeys fonctionnent?

Merci d'avance

**mnarchi** · 28/07/2011, 13h02

Salut,
j'ai testé chez moi le code suivant, ça fonctionne.
pas besoin de déclarer une référence quelconque

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub imp_pdf()
 
Dim ret As Long
ret = Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe /P  MonChemin\MonFichier.pdf", 1)
 
SendKeys "{TAB 7}", True
SendKeys "2{ENTER}", True
 
Shell "TASKKILL /IM AcroRd32.exe /F"
End Sub