ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

DOC->PDF : Automation Word pour générer un PDF (avec imprimante PDFCreator)

	Description
Retour à la liste L'auteur Francis Faure France Membre Actif (personne physique) # 0000000001 enregistré le 11/10/2004 http://www.wanagain.net 56 ans Faure Francis de la société Design Or Decline Fiche personnelle Note des membres pas de note	Contributions > 09 - Automation > Word DOC->PDF : Automation Word pour générer un PDF (avec imprimante PDFCreator) # 0000000341 ajouté le 12/07/2006 12:58:16 et modifié le 12/07/2006 consulté 12933 fois Niveau débutant Version(s) Foxpro : VFP 9.0 VFP 8.0 VFP 7.0
	à la demande de François de tranformer un fichier.doc en fichier .pdf, voici une proposition But de cette démo : Ouvrir un document Word (avec ms word) et lancer l'impression sur l'imprimante "PDF Creator" pour générer un fichier PDF PDFcreator : https://sourceforge.net/projects/pdfcreator/ Il faut paramétrer PDFcreator en génération automatique (La nouvelle version béta permet d'appeler pdfcreator en COM pour générer les options) En espérant que cela répond à ta demande... Cordialement Francis
	Code source :
	lsFichierDoc = "c:\temp\test.doc" * créer objet word oDoc=createobject("word.application") WITH oDoc * pas d'alerte .DisplayAlerts=.F. * fenetres réduite .WindowState = 2 && 1 = normal 2= réduit * fenetres visible .visible = .F. * ouverture document *** expression.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible, OpenConflictDocument, OpenAndRepair , DocumentDirection, NoEncodingDialog) .Documents.Open(lsFichierDoc, .F., .T.) * impression (fixer pdfcreator en mode enregistrement automatique) .ActivePrinter = "PDFCreator" *** PrintOut(Background, Append, Range, OutputFileName, From, To, Item, Copies, Pages, PageType, PrintToFile, Collate, FileName, ActivePrinterMacGX, ManualDuplexPrint) .activedocument.PrintOut(.F.,,,,,,,,,,.F.) * fermer *** expression.Close(SaveChanges, OriginalFormat, RouteDocument) .Documents.Close(.F.) * quitter oDoc.quit() oDoc=null ENDWITH
	Commentaires
	Aucun commentaire enregistré ...

DOC->PDF : Automation Word pour générer un PDF (avec imprimante PDFCreator)

Contributions > 09 - Automation > Word