Bonjour Michel

Michel Rudelle wrote
> Je suis donc à la recherche des filtres permettant dans une macro
> d’exporter
> un fichier Calc avec les options suivantes :
>  - Incorporer le fichier Open Document
>  - PDF/A

D'après l'enregistreur il semble que ce soit respectivement:
IsAddStream (true/false)
SelectPdfVersion (0/1)

Cela nous donne donc quelque chose comme:

sub ExportPdfAHybride
dim propFich(1) as new com.sun.star.beans.PropertyValue
dim filterProps(2) as new com.sun.star.beans.PropertyValue
dim adresseDoc  as string

filterProps(0).Name = "Selection"
filterProps(0).Value = thisComponent.currentSelection
'filterProps(0).Value = thisComponent.currentController.ActiveSheet
filterProps(1).Name = "IsAddStream"
filterProps(1).Value = true
'filterProps(1).Value = false
filterProps(2).Name = "SelectPdfVersion"
filterProps(2).Value = 1

propFich(0).Name = "FilterName"
propFich(0).Value = "calc_pdf_Export"
propFich(1).Name = "FilterData"
propFich(1).Value = filterProps()

adresseDoc = convertToURL("c:\Tests\test.pdf")
thiscomponent.storeToURL(adresseDoc, propFich())
end sub


Cordialement
Pierre-Yves




--
View this message in context: 
http://nabble.documentfoundation.org/macro-filtres-d-export-PDF-tp4050593p4050599.html
Sent from the Users mailing list archive at Nabble.com.

-- 
Envoyez un mail à [email protected] pour savoir comment vous 
désinscrire
Les archives de la liste sont disponibles à 
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne 
pourront pas être supprimés

Répondre à