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)   



L'auteur

Francis Faure
France 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é 12652 fois
Niveau débutant

Version(s) Foxpro :
VFP 9.0
VFP 8.0
VFP 7.0

Description

à 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é ...

Publicité

Les pubs en cours :


www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2024.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3