Impression .doc en pdf : utilisation des Options : problème directory -

**JPaul94300** · 09/03/2009, 16h39

Bonjour,

j'ai téléchargé http://heureuxoli.developpez.com/office/word/doc2pdf et remercie au passage le développeur...Code que j'ai adapté pour tester mais j'ai un souci :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
 
Sub macro1()
    Dim oldPrinter As String
    Dim stChemin As String
    Dim stNom As String
    Set PDFCreator1 = New clsPDFCreator
    ' Affichage de la fenêtre de PDF
    Shell "C:\Program Files\PDFCreator\PDFCreator.exe", vbNormalFocus
    oldPrinter = ActivePrinter
    'On va mettre en mémoire dans une
    'variable le nom de l'imprimante par défaut
    ActivePrinter = "PDFCreator"
    ChangeFileOpenDirectory "C:\AGARDER\"
    Documents.Open Filename:="20090649-06-03-2009.doc"
 
    'les option PDFCreator
 
    With PDFCreator1
       .cOption("UseAutosave") = 1
       .cOption("UseAutosaveDirectory") = 1
       .cOption("AutosaveDirectory") = "c:\agarder" 'stChemin
       .cOption("AutosaveFilename") = "20090649-06-03-2009.pdf" 'stNom
       .cOption("AutosaveFormat") = 0                            ' 0 = PDF
       .cStart
       .cClearCache
       DoEvents
       Temps1 = Now + TimeValue("00:00:10")
       While Now < Temps1
        ' permet que les options pdf se mettent en place....
       Wend
 
       ActiveDocument.PrintOut Background:=True 'false
       DoEvents
       .cPrinterStop = False
    End With
 
 
    PDFCreator1.cClose
    ActivePrinter = oldPrinter
    ' Change l'imprimante par défaut
 
End Sub

En fait, j'ouvre bien mon .doc qui est dans c:\agarder, le moniteur d'impression de pdfcreator s'affiche avec le nom du fichier proposé, par contre je me retrouve avec le répertoire de mes documents par défaut..Il y a donc un problème comme si les options ne fonctionnaient pas...Enfin je ne veux pas que le moniteur pdfcreator s'affiche pour pouvoir boucler sur un tableau de fichiers...

Quelqu'un a une idée ?

Merci de votre aide

JPaul

**Heureux-oli** · 09/03/2009, 18h08

Salut,

si tu boucles, tu vas avoir une liste de documents et il suffit de demander l'impression lorsque la boucle est terminée.

As-tu désactivé la fonction AutoSave ?

**JPaul94300** · 10/03/2009, 08h29

Bonjour,

et merci d'avoir répondu.

Indépendamment de la boucle, le simple exemple sans boucle ici ne fonctionne pas...et oui j'ai bien désactivé Autosave dans les options de pdfcreator.....et la version avec le userform marche nickel....

J'ai installé et réinstallé pdfcreator (c'est la version 9.0 : PDFCreator-0_9_0_GPLGhostscript.exe)....

J'avoue sécher........

Merci pour l'aide

JPaul

**Heureux-oli** · 10/03/2009, 08h50

Salut,

J'ai refait quelques tests et le code que je donne dans le tuto fonctionne.

La fenêtre de PDFCreator s'ouvre, mais c'est sans incidence, l'impression se déroule normalement.

Essaie de simplement copier le code tel quel et utilise le sur un document existant.

On aura déjà une idée du résultat.

**JPaul94300** · 10/03/2009, 15h48

Bonjour,

suivant tes conseils j'ai copié le code personnalisé de ton tuto directement dans le document word que j'utilise pour tester et ...mêmes symptômes : le moniteur d'impression s'affiche et j'ai droit aux 2 écrans le 1er qui propose d'enregistrer sous le nom du fichier et le 2ème qui propose de le faire dans mes documents et non dans le répertoire du fichier.....

bref ne fonctionne pas ...si tu as d'autres idées....

Merci en tout cas

JPaul

**Heureux-oli** · 10/03/2009, 16h00

Non,

Aucune, je viens d'essayer sur un autre PC et le code se déroule normalement et le résultat obtenu conforme.

La version que j'utilise est le 0.9.3
et 8.54

Je suis perdu.