Imprimer word en pdf par pdfcreator sous xls

Résolu/Fermé
jeanluk Messages postés 8 Date d'inscription mercredi 28 juin 2006 Statut Membre Dernière intervention 28 septembre 2007 - 21 août 2006 à 15:50
 Reda - 19 mars 2009 à 11:31
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
A voir également:

7 réponses

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
8
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????
4
jeanluk Messages postés 8 Date d'inscription mercredi 28 juin 2006 Statut Membre Dernière intervention 28 septembre 2007 1
10 sept. 2007 à 01:21
c ok
1
Bonjour,
... As PDFCreator.clsPDFCreator

Pouvez vous me dire ou je pusi trouver la classe clsPDFCreator?

Bien à vous,
F.
1

Vous n’avez pas trouvé la réponse que vous recherchez ?

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

Merci d'avance
0
Merci, ça marche
0
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.
0