Bonjour,
Je cherche à exporter une feuille de classeur en PDF dans le répertoire courant. Ne connaissant pas le langage OOo Basic, j'ai donc enregistré une macro censée faire le taff. Or, la macro ne prend pas en compte l'option qui permet d'enregistrer uniquement la feuille active.
Auriez-vous un code ou une astuce à me proposer ?
Bonjour
Hors macro tu peux définir la zone d'impression de la (les) feuille à ne pas exporter : Format▸Zone d'impression▸Éditer▸- aucun(e) -
Ou par macro, par exemple pour n'exporter que la feuille courante :
sub ExportPdfSelection
dim propFich(2) as new com.sun.star.beans.PropertyValue
dim filterProps(0) as new com.sun.star.beans.PropertyValue
dim adresseDoc as string
filterProps(0).Name = "Selection"
filterProps(0).Value = thisComponent.currentController.activeSheet
propFich(0).Name = "FilterName"
propFich(0).Value = "calc_pdf_Export"
propFich(1).Name = "FilterData"
propFich(1).Value = filterProps()
adresseDoc = convertToURL("C:\test.pdf")
thiscomponent.storeToURL(adresseDoc, propfich())
end sub
Cordialement
Il existe une extension toute prête qu'il suffit d'installer :
hello, merci pour ta réponse, mais la macro que tu me proposes provoque une erreur : "Une exception s'est produite : Type: com.sun.star.io.IOException Message: SfxBaseModel::impl_store <file: .="" test.pdf=""> failed: 0x507."
J'aurais peut-être dû préciser que le nom/chemin du fichier pdf destination devait être adapté...
J'en profite pour ajouter que, naturellement, la zone d'impression de la feuille sera prise en compte.
As-tu vérifié après conversion que tu as bien un url valide ?
Relatif à quoi ? Dans LibreOffice le chemin par défaut est "récupérable" par qqchose comme :
sInstall = CreateUnoService("com.sun.star.util.PathSettings")
sRepDoc = sInstall.Work
Après, c'est à toi de bâtir une chaîne en fonction du besoin...
Posée: 2019-02-08 21:23:13 +0200
Consultée: 66 fois
Mise à jour: Feb 11
Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.