0. Présentation de PDF Creator▲
Cet outil est un freeware, donc pas de souci de licence. Vous pouvez le télécharger ici :
https://sourceforge.net/projects/pdfcreator/
PDF Creator dispose d'une interface COM qui permet de le piloter intégralement, donc depuis WinDev ou WebDev, pas de soucis particulier
I. Utilisation de PDF Creator dans WinDev▲
Dans votre projet, vous devez commencer par déclarer les variables qui vous permettront d'instancier vos objets :
MonPDF est un objet OLE dynamique // Objet pilotant PDF Creator
ErreurPDF est un objet OLE dynamique // Objet permettant de gérer les erreurs PDF Creator
MesOptionsPDF est un objet OLE dynamique // Ojet permettant de piloter les options de PDF Creator
DefaultPrinter est une chaîne
Ensuite vous instanciez les objets nécessaires :
SI PAS gbPdfCreatorDemarre ALORS
//Allocation de l'objet PDFCreator : si il est déjà démarré, on l'utilise.
MonPDF = ObjetActif("PDFCreator.clsPDFCreator")
SI MonPDF=Null ALORS
MonPDF=allouer un objet OLE "PDFCreator.clsPDFCreator"
ErreurPDF = ObjetActif("PDFCreator.clsPDFCreatorError") // On alloue un objet pour gérer les erreurs.
MesOptionsPDF =ObjetActif("PDFCreator.clsPDFCreatorOptions") // On alloue un objet pour gérer les options.
AutomationEvénement(Eve_PDFCreator_eReady,MonPDF,"eReady") // Les deux procédures de gestion des évenements PDFCreator.
// -eReady = Pret et dispo pour doc suivant
AutomationEvénement(Eve_PDFCreator_eError,MonPDF,"eError") // -eError = Probleme avec PDFCreator
FIN
FIN
SI PAS MonPDF>>cProgramIsRunning ALORS
SI MonPDF>>cStart("/NoProcessingAtStartup", Vrai) = Faux ALORS
Erreur("Impossible d'initialiser PDFCreator.")
RETOUR
FIN
gbPdfCreatorDemarre = Vrai
SINON
gbPdfCreatorDemarre = Vrai
FINLes différentes fonctions utilisées sont très bien décrites dans l'aide de PDF Creator, et tout fonctionne tres bien.
Dans mon code, j'utilise deux méthodes AUTOMATIOnEvenement, ceci avec un résultat mitigé : la méthode Eve_PDFCreator_eReady est censé renvoyé vrai quand le traitement en cours est terminé, mais je n'ai pas réussi à la faire fonctionner correctement. il faudra creuser ce point. Je m'y pencherai dès que j'aurais un peu de temps.
Ensuite il vous est possible de modifier différents parametres de PDF Creator, il y en a une quantité non négligeable, mais en gros, le principe est le meme :
MonPDF>>cVisible = Faux //Rend PDF Creator invisible
MonPDF>>cOption("AutosaveFormat") = 0 //Format PDF
MonPDF>>cOption("UseAutosave") = 1 //Sauvegarde automatique
MonPDF>>cOption("UseAutosaveDirectory") = 1 //Utilisation du repertoire sauvegardé.
MonPDF>>cDefaultprinter = "PDFCreator" //Affecte l'imprimante PDF comme imprimante par défaut
MonPDF>>cClearCachePour modifier l'imprimante en cours et la restaurer ensuite par exemple :
DefaultPrinter=iInfoImprimante(Faux)
iConfigure("PDFCreator",Faux)et à la fin du traitement, vous la restaurez.
MonPDF>>cDefaultprinter = DefaultPrinterEnsuite exemple de traitement fichier par fichier, mais vous pouvez aussi envoyer toute une liste de fichier en file d'attente...
// Conversion PDF
sNomCompletFichieraConvertir = sRepertoireNonPDFlocal+"\"+sNomCompletFichier
SI PAS MonPDF>>cIsPrintable(sNomCompletFichieraConvertir) ALORS
//Traitement erreur ....
SINON
MonPDF>>cPrinterStop = Faux
MonPDF>>cOption("AutosaveDirectory") = sRepertoirePDFlocal
MonPDF>>cOption("AutosaveFilename") = fExtraitChemin(sNomCompletFichieraConvertir,fFichier)
MonPDF>>cPrintfile(sNomCompletFichieraConvertir)
FINcPrinterStop permet de suspendre ou non la file d'attente d'impression... si il est à vrai , vous "empilez" vos fichiers dans le spooler jusqu'à ce que vous repassiez à Faux cPrinterStop...
Voila, il est bien entendu possible d'affiner encore, mais cette méthode fonctionne bien et est en production actuellement, sans probleme particulier. Je précise, dans mon cas, il s'agit de convertir différents types de documents en PDF et de les stocker dans un répertoire mais le principe est exactement le même pour imprimer des PDF...
En espérant vous avoir donné des pistes. J'ai utilisé cet outil après de nombreuses recherches sur les différents forums et pour rendre à César ce qui est à César , la base de ma procédure est largement inspirée d'un fil de discussion trouvé sur un forum. (je ferais une petite recherche pour faire apparaitre le nom de son auteur originel...