Téléchargement
illégal
Posez votre question Signaler

Imprimer word en pdf par pdfcreator sous xls [Résolu]

jeanluk 8Messages postés 28 juin 2006Date d'inscription - Dernière réponse le 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
Lire la suite 

Imprimer word en pdf par pdfcreator sous xls »

7 réponses
Réponse
+5
moins plus
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
Ajouter un commentaire
Réponse
+4
moins plus
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????
Ajouter un commentaire
Réponse
+1
moins plus
c ok
Ajouter un commentaire
Réponse
+0
moins plus
Salut
j'ai exactement le même problème que toi.
Comment as-tu fait pour le résoudre?

Merci d'avance
Ajouter un commentaire
Réponse
+0
moins plus
Merci, ça marche
Ajouter un commentaire
Réponse
+0
moins plus
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.
Ajouter un commentaire
Réponse
+0
moins plus
Bonjour,
... As PDFCreator.clsPDFCreator

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

Bien à vous,
F.
Ajouter un commentaire
Ce document intitulé « imprimer word en pdf par pdfcreator sous xls » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?