At 2004-11-29 09:29, Olivier DUHAMEL wrote:
En fait, j'ai du mal m'exprimer. Pour la définition de zones d'impression,
pas de pb .....
En fait, je souhaite utiliser PDFTK pour vérouiller mes fichiers PDF. J'ai
donc créé une macro qui :
me demande de sélectionner le fichier (macro du livre...)
* Utilise un dialogue, qui remplace le dialogue standard d'export PDF,
* Réinjecte les paramétres d'exportation
* Créée l'export PDF
* Vérouille l'export
le but est donc simple ... j'utilise vos paramétres pour la qualité
d'impression ... (PDFArgs) je souhaiterai simplement pouvoir indiquer la
plage d'impression.
Toujours pas clair pour moi, le livre n'indique pas le paramètre de qualité
d'impression, il n'y a pas de PDFArgs. Quant à la plage d'impression, c'est
peut-être la plage des pages à exporter.
Voici comment régler ces deux paramètres :
Sub PDFpartielWriter()
Dim monDocument As Object
Dim adresseDoc As String
Dim PropFich(1) As New com.sun.star.beans.PropertyValue
Dim filterProps(1) As New com.sun.star.beans.PropertyValue
monDocument = thisComponent
filterProps(0).Name = "PageRange"
filterProps(0).Value = "6-7;10"
filterProps(1).Name = "CompressMode"
filterProps(1).Value = 0
propFich(0).Name = "FilterName"
propFich(0).Value = "writer_pdf_Export"
propFich(1).Name = "FilterData"
propFich(1).Value = filterProps()
adresseDoc = convertToURL("C:\Docs OpenOffice\monFichier.pdf")
monDocument.storeToURL(adresseDoc, propfich())
End Sub
CompressMode :
0 optimisé écran
1 optimisé impression
2 optimisé presse à imprimer
PageRange :
même syntaxe que pour une impression partielle
Espérant avoir traité le sujet...
Bernard
10 messages in org.openoffice.fr.progRe: [prog] Export PDF
