Options d'impression d'un pdf via le shell

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:

---

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

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

Merci

bonjour,

essaie d'insérer les lignes suivantes:

Code:

---

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

---

avant de quitter

bonne chance

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

Merci d'avance

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

Code:

---

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

---

Je suis sous Reader 10.0, je pense pas qu'il y ait une incidence sur les Sendkeys.:roll:
Aujourd'hui, rien ne s'imprime. J'ai bien la fenêtre d'impression qui s'ouvre, et rien ne se passe.
Si vous avez des suggestions...
Merci

Bonjour

Test cela : Comment imprimer un document sans pour autant ouvir l'application associée

Philippe