Bonjour Michel
Michel Rudelle wrote
Je suis donc à la recherche des filtres permettant dans une macro
dexporter
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