Discussion :

[celopez]

Bonjour,

Je souhaiterais savoir s'il est possible, lors d'une impression en PDF et en utilisant les commandes basic de Windev, de modifier les propriétés de ce PDF : par exemple, indiquer l'auteur, la date de création etc...
Merci pour vos réponses

[lubinfo]

Bonsoir,

J'allais poser la même question car apparemment les propriétés du type pdfDocument ne sont accessibles qu'en lecture !
La doc :


Et encore, il en manque certaines comme les mots-clé et les propriétés personnalisées.

De même, comment avoir le type complet du pdf, par exemple comment savoir si c'est une factur'x qui contient un xml en pièce jointe, donc un format PDF/A-3B ?

De même, le champ lecteur pdf permet de visualiser le pdf et de faire qq modif mais il ne permet pas de visualiser ou de modifier ces propriétés.

Alors que pour la visu, l'exemple unitaire type pdfDocument livré le fait. Ils auraient pu inclure ces possibilités dans le champ lecteur pdf.
Mais comme souvent avec pcsoft, il faut bien garder des 'nouveautés' pour les versions suivantes !

[celopez]

Bonjour à tous,
Effectivement il est impossible de modifier les paramètres d'un PDF avec ce que propose Windev.
J'ai donc repris un programme qui utilisait une ancienne version de PDFCreator et je l'ai mis au goût du jour càd avec la version 4.3.0 de PDFCreator sous Windev 25.
Ainsi je peux réaliser en automatique mes PDFs,, verrouiller le fichier, inscrire un auteur, un titre, etc..
Bien évidement, tous les caractères Unicodes sont traités correctement.
J'indique ci-dessous les lignes de code qui peuvent vous aider :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
oautPDFcreator est objet Automation dynamique
strnom_fichier est une chaîne="c:\PDF\FichierAcreer.pdf"
QUAND EXCEPTION DANS
	oautPDFcreator = allouer un objet Automation "PDFCreator.JobQueue"
FAIRE
	Erreur("L'imprimante PDFCreator n'est pas installée sur votre poste!") 
	// message si PDFCReator n'est pas installé
	RENVOYER Faux
FIN
SI oautPDFcreator= Null ALORS
	Erreur("L'imprimante PDFCreator n'est pas installée sur votre poste!") 
	// message si PDFCReator n'a pas pu s'initialiser
	RENVOYER Faux
FIN
 
MyJob est objet Automation dynamique
oautPDFcreator>>Clear()
oautPDFcreator>>Initialize()
iConfigure("PDFCreator",Vrai) // fixe temporairement l'imprimante PDFcreator par défaut
iAperçu(iImprimante)
iFenêtreAbandon(Faux) // Faux pour ne pas afficher la fenêtre d'abandon de l'impression
iImprimeEtat(Etat_Fiche_ProduitVierge)
BOUCLE
	Multitâche(40)
	SI oautPDFcreator>>Count>0 ALORS SORTIR
FIN 
//	'get a handle on the job and save to filename
MyJob=oautPDFcreator>>NextJob
MyJob>>SetProfileSetting ("TitleTemplate", "Titre du document")
MyJob>>SetProfileSetting ("AuthorTemplate", "Auteur du document")
MyJob>>SetProfileSetting ("KeywordTemplate", "Mot clé du PDF")
MyJob>>SetProfileSetting ("SubjectTemplate","Sujet du pdf")
MyJob>>SetProfileSetting ("ShowProgress", "False")
MyJob>>SetProfileSetting ("PdfSettings.Security.Enabled", "True")//Activer la securité
MyJob>>SetProfileSetting ("PdfSettings.Security.OwnerPassword", "Mot de passe")//Protège le fichier par mot de passe
MyJob>>SetProfileSetting ("PdfSettings.Security.AllowToEditComments", "false")//Empêche la création de commentaire
MyJob>>SetProfileSetting ("PdfSettings.Security.AllowToCopyContent", "false")//Empêche la copy des données 
MyJob>>SetProfileSetting ("PdfSettings.Security.AllowToEditTheDocument", "false")//Empêche de remplir et signer 
MyJob>>SetProfileSetting ("PdfSettings.Security.AllowToFillForms", "false")
 
MyJob>>ConvertTo (strnom_fichier)//le nom du fichier avec le chemin complet
BOUCLE
	Multitâche(40)
À FAIRE TANTQUE PAS MyJob>>IsFinished
SI PAS fFichierExiste(strnom_fichier) ALORS // on attend avec une tempo plus grande
	Multitâche(40)
FIN
SI PAS fFichierExiste(strnom_fichier) ALORS // si toujours pas de fichier créé, erreur!
	Erreur("Le fichier PDF n'a pas pu être créé !") // message d'erreur si le fichier n'a pas pu être 
FIN
//Fermer tous les objets
libérer MyJob
oautPDFcreator>>ReleaseCom
libérer oautPDFcreator
iRAZ() // Ré-initialise les paramètres d'impression