Printout en VBScript

Bonjour,

Je souhaite imprimer avec pdfcreator un certain nombre de pages d'un document word. En VBscript, il semble que PrintOut renvoie une erreur dès qu'on tente de lui mettre une option, donc impossible de lui spécifier un nombre de pages ou un range. Ci-dessous, un script qui fonctionne très bien pour imprimer l'ensemble du document et que j'aimerais modifier. Toute suggestion pour imprimer un range sera bienvenue.
Les informations les plus proches de mon problème que j'ai pu trouver sur le net (en anglais) sont ici: https://www.experts-exchange.com/que...t-working.html
mais cela ne résout pas vraiment le problème...

Merci d'avance.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

Set objWord = CreateObject("Word.Application") Set objOptions = objWord.Options Set objDoc = objWord.Documents.Open("C:\DATA\test.docx") Set PDFCreator = CreateObject("PDFCreator.clsPDFCreator","localhost")   strDefault = objWord.ActivePrinter objWord.ActivePrinter = "PDFCreator"   With PDFCreator .cStart "/NoProcessingAtStartup" .cOption("UseAutosave") = 1 .cOption("UseAutosaveDirectory") = 1 .cOption("AutosaveFormat") = 0 ' 0 = PDF DefaultPrinter = .cDefaultprinter .cOption("AutosaveFilename") = "testout" .cPrintfile cStr("Test1") .cClearcache .cPrinterStop = False End With   objWord.PrintOut     objWord.ActivePrinter = strDefault   Wscript.Sleep 2000 objWord.Quit

---

Salut, est-ce que cela te sera utile, c'est du VBA ? Impression Document Word en PDF mais via Acrobat ( pas le Reader )
Pour info : PrintOut génère un fichier PS qu'il faut ensuite transcrire en PDF.

Merci, mais je cherche une solution VBS. En VBA, printout semble accepter les options de range, pages, etc. cf. https://msdn.microsoft.com/fr-fr/lib.../ff840681.aspx

C'est quand je l'utilise dans du VBS que je n'arrive pas à exploiter ces options.
Je suis surpris par:

Citation:

---

Envoyé par kiki29

Pour info : PrintOut génère un fichier PS qu'il faut ensuite transcrire en PDF.

---

Car dans mon script le printout génère bien un pdf.
Mon seul pb est que je n'arrive pas à n'imprimer que certaines pages. Dans le pire des cas, je peux post-traiter le pdf pour enlever les pages superflues, mais il doit sans doute y avoir une solution plus propre.

J'ai trouvé une autre solution que le post-traitement. Comme je disais dans mon dernier post PrintOut est du VBA.
Je procède donc en 2 temps:
1/ je crée une macro VBA dans laquelle je mets l'instruction PrintOut avec les options qui me conviennent
2/ dans mon VBS, je lance la macro
Et le tour est joué :D

Ci-dessous un exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Set objWord = CreateObject("Word.Application") Set objOptions = objWord.Options Set objDoc = objWord.Documents.Open("C:\DATA\test.docx") Set PDFCreator = CreateObject("PDFCreator.clsPDFCreator","localhost")   ' ici je configure les options de PDFCreator comme précédemment   strDefault = objWord.ActivePrinter objWord.ActivePrinter = "PDFCreator"   objWord.Run "myMacroPrint" ' <- ici je lance la macro     Wscript.Sleep 2000 ' ici je restitue les options initiales de PDFCreator objWord.ActivePrinter = strDefault   objWord.Quit

---

Je continue a faire mes premiers pas en VBS. En fait on peut tout à fait lancer "printout" directement depuis le VBS sans passe par le lancement d'une macro VBA. Il faut simplement respecter quelques règles d'utilisation/syntaxe de commandes VBA dans du VBS. Le point principal étant que tout doit être explicité est que les constantes prédéfinies dans VBA ne sont pas connues de VBS :oops:. Donc le remplacement de la ligne

Code:

---

objWord.Run "myMacroPrint

---

par le code ci-dessous produit exactement le même résultat.

Code:

---

1 2 3 4 5 6 7

Const wdPrintRangeOfPages = 4 Const wdPrintAllPages = 0 Const Copies = 1 ....   objWord.PrintOut True, , wdPrintRangeOfPages, , , , , Copies, "2-", wdPrintAllPages, , True, , , , 0, 0, 0, 0

---

C'est sans doute trivial, mais ça pourra peut être servir à un autre débutant en VBS puisque j'avais peiné à trouver cette info.