Signaler

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

Posez votre question jeanluk 8Messages postés mercredi 28 juin 2006Date d'inscription 28 septembre 2007 Dernière intervention - Dernière réponse le 19 mars 2009 à 11:31 par Reda
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
Afficher la suite 
Utile
+8
plus moins
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
Cette réponse vous a-t-elle aidé ?  
Utile
+4
plus moins
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????
Utile
+1
plus moins
c ok
Utile
+1
plus moins
Bonjour,
... As PDFCreator.clsPDFCreator

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

Bien à vous,
F.
Utile
+0
plus moins
Salut
j'ai exactement le même problème que toi.
Comment as-tu fait pour le résoudre?

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

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !