Comment modifier le paramétrage de PDFCREATOR via vba Excel 2010

Bonjour tout le monde !

je viens d'étudier les différents messages (et il y en a beaucoup...) concernant Excel et PDFCREATOR, mais je n'ai pas trouvé de réponse à mon problème.

En effet, je souhaiterais via VBA :
- 1 - modifier mon imprimante par défaut
- 2 - choisir PDFCREATOR
- 3 - modifier le paramétrage de PDFCREATOR, en passant du format A4 au format A3 et du mode portrait, au mode paysage.
- 4 - à l'issue remettre le mode portrait et A4
- 5 - remettre l'ancienne imprimante (ça j'ai trouvé sur votre site...)

Si vous pouviez soit me donner une solution avec des explications précises, soit me donner un lien vers un tutoriel précis (pour que je comprenne bien et puisse me débrouiller ensuite tout seul), je serai le plus heureux du monde !

Merci d'avance à ceux qui voudront bien passer du temps pour moi !

A +

Bonjour,
Pour choisir PDFCreator

Code:

---

1 2	ActivePrinter = "PDFCreator"

---

Citation:

---

Envoyé par leblesois

- 3 - modifier le paramétrage de PDFCREATOR, en passant du format A4 au format A3 et du mode portrait, au mode paysage.
- 4 - à l'issue remettre le mode portrait et A4

---

Ces 2 points se èglent dans excel et pas pdfcreator, via worksheets.PageSetup
exemple

Code:

---

1 2 3 4 5 6 7 8 9

With ActiveSheet.PageSetup .PrintArea = "$I$1:$X$40" 'Définit la zone d'impression .Orientation = xlLandscape 'Orientation de la page en paysage .Zoom = False 'Zoom (à désactiver pour le faire en automatique avec fittopage .FitToPagesWide = 1 '1 page de large .FitToPagesTall = 1 '1 page de haut .PaperSize = xlPaperA3 ' format A3 End With

---

Entre parenthèse, avec l'éditeur de macro il suffit de changer un des paramètre de l'onglet mise en page pour avoir un nombre impressionnant d'options d'impression.

Je viens de tester, et j'ai un problème :

"Erreur d'exécution '1004' :
La méthode 'ActivePrinter' de l'objet '_Global' a échoué "

Que dois-je faire ?

Merci d'avance

Ah...

essaye de changer l'imprimante en utilisant l'enregistreur de macro, regarde ce qu'il donne.

Etienne

et j'avais oublié 2 de tes points,
pour sauvegarder et remettre l'imprimante avant et après :

Code:

---

1 2 3 4

p = Application.ActivePrinter ... Application.ActivePrinter = p

---

En fait il fallait écrire : ActivePrinter = "PDFCreator sur Ne00:"

Dernière petite question, est-il possible vient VBA d'imposer le chemin de sauvegarde du fichier PDF créé ?

Par Exemple, je veux que le fichier créé soit automatiquement mis dans le répertoire c:\antiquaire\livre_de_police

Grand merci car tu m'as sacrément débloqué !

Oui tu peux choisir le nom de sauvegarde aussi mais ça va être plus complexe, il te faut créer une instance d'objet PDFCreator et manipuler ses options.
En fait pour le moment tu choisis l'imprimante et à la fin la pop up de pdf creator s'ouvre et te demande où tu veux enregistrer le fichier. Pour ne pas afficher cette fenêtre il faut aller manipuler le programme pdfcreator et c'est un petit peu plus complexe.
Il y a des forums où l'on explique comment faire en cherchant vba pdfcreator, je ne maitrise pas cette partie.

Je vais voir cela !

Merci !

Salut, via la liste accessible ici, tu trouveras dans Excel / Word / PDF avec Adobe Acrobat Pro et PDFCreator des infos et exemples.