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 : 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
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