[fr-users] Michel Blanchard Export PDF

Bonjour à tous,

Je suis en train de construire une macro CALC pour exporter UNE SEULE 
FEUILLE au format PDF.
Tout est ok, sauf que la macro m'exporte TOUT le classeur !

Voilà le code :

Sub ExportPDF
    Dim oDoc As Object , Feuille As Object, Cellule As Object
    Dim Chemin As String, Fichier As String
    Dim ArgPdf(0) as new com.sun.star.beans.PropertyValue

    oDoc = ThisComponent

    Chemin = "D:\Libre Office\LOCalc\AFPP-Calc\Calc_spécial\" '----- 
Chemin de sauvegarde

    Feuille = oDoc.Sheets.getByName("facture") '----- nom de la feuille
    Cellule = Feuille.getCellRangeByName ("C2") '----- récupération du 
numéro de facture pour l'inclure dans le nom du PDF
    Fichier = Cellule.getString & ".pdf"
    ArgPdf(0).Name = "FilterName"
    ArgPdf(0).Value = "calc_pdf_Export"

    Msgbox Chemin & "\" & Fichier

    oDoc.storeToURL(convertToUrl(Chemin & Fichier),ArgPdf())
    MsgBox("Fin export pdf")

End sub

L'idéal serait de définir dans la macro une zone d'impression et de 
n'exporter que cette zone.

Mais je sèche !!
Merci de vos conseils

Michel

--
Michel Blanchard
ALGOL - Formation - Coaching Bureautique
/5 rue de Vélantan/
*37130* Mazières de Touraine
--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy