imprimer word en pdf par pdfcreator sous xls Résolu

Question

salut,

j'essaye d'imprimer un document word en pdf en passant par vb d'excel.
Pour le pdf j'utilise PDFCreator.
Voici le code que j'utilise
DocWord.Application.ActivePrinter = "PDFCreator"
DocWord.Application.PrintPreview = False
DocWord.PrintOut Copies:=1, PrintTofile:=True, OutputFileName:=Chemin & Sheets(i).Name & ".pdf"

Le problème ce pose avec PrintToFile. S'il est à false il m'ouvre une popup pour valider l'enregistrement.
Comme j'ai une centaine de fichier à faire je souhaite faire "sauter" cette demande. En mettant PrintToFile à true il ne me demande plus de valider l'enregistrement (ce qui est super) par contre qd je veux ouvrir le fichier pdf créé il me sort qu'il ne peut l'ouvrir car le fichier n'est pas supporté ou endommagé.
Quelqu'un aurais t il une idée pour éviter ce problème.

Merci d'avance

JL

domergue12 · Accepted Answer

Peut-etre que mon code pourras t'aider.

J'utilise PDF creator pour convertir un document word en PDf et je n'ai aucun PB
voici mon code

         If myPDFCreator Is Nothing Then
           
            Set myPDFCreator = New PDFCreator.clsPDFCreator
            ' Sleep 1000
            With myPDFCreator
            
                 'on lance PDFCreator si pas lancé
                If .cStart("/NoProcessingAtStartup") = False Then
                   MsgBox "Can't initialize PDFCreator.", vbCritical + vbOKOnly, "PrtPDFCreator"

                End If
            End With
         End If
         
         'Initialiser les options de sauvegarde de PDFCreator
         With myPDFCreator
            .cOption("UseAutosave") = 1
            .cOption("UseAutosaveDirectory") = 1
            .cOption("AutosaveDirectory") = theFileRoot  ' répertoire ou tu veux enregistrer ton pdf
            .cOption("AutosaveFilename") = NomFichierSansExt 'exemple : test
            .cOption("AutosaveFormat") = 0 ' 0 = PDF
            .cDefaultPrinter = "PDFCreator"
            .cClearCache
         End With
        Sleep 100
       ' impression de la lettre au format PDF
       Lettre.PrintOut PrintToFile:=False 
       Sleep 100
       myPDFCreator.cPrinterStop = False

        
     myPDFCreator.cClearCache
     DoEvents
  
      'Attendre que la file d'attente soit vide
    Do Until myPDFCreator.cCountOfPrintjobs = 0
        DoEvents
    Loop
    
      ' Remettre l'imprimante par défaut du système
     GImp.oMonwd.ActivePrinter = Imprimante_defaut

     myPDFCreator.cClose
    Set myPDFCreator = Nothing

jeanluk · Answer

c ok

aure69 · Answer

Salut 
j'ai exactement le même problème que toi.
Comment as-tu fait pour le résoudre?

Merci d'avance

aure69 · Answer

Merci, ça marche

phil40 · Answer

Salut,

J'ai utilisé le même type de code sous Windows XP / Word 2000 ==> no problem.

Par contre, en exécutant exactement le même code sous Windows 2000 / Word 2000, le document ne s'écrit pas au bon endroit et au bon nom (AutosaveDirectory et AutosaveFilename). Il écrit dans le répertoire et sous le nom définis par défaut dans PDFCreator : on dirait que l'impression s'effectuait avant que l'affectation des valeurs d'options de sauvegarde (.coption...) n'ait eu le temps de s'exécuter.

Surprise : en rajoutant un "MsgBox" dans le code, l'impression s'enregsitre au bon endroit...mais je ne veux pas de "MsgBox"

Avez-vous une explication ?

Merci d'avance.

f_d_e · Answer

Bonjour,
... As PDFCreator.clsPDFCreator

Pouvez vous me dire ou je pusi trouver la classe clsPDFCreator?

Bien à vous,
F.

Reda · Answer

Faudra Importer la reference PDFCreator dans ton editeur VBA (je dis bien editeur VBA)

Outils\References... et dans la liste faut cocher "PDFCreator"

Est ce clair????

Imprimer word en pdf par pdfcreator sous xls

7 réponses

Discussions similaires

Newsletters