FAQ DelphiConsultez toutes les FAQ

Nombre d'auteurs : 124, nombre de questions : 934, dernière mise à jour : 23 octobre 2024 Ajouter une question

Cette FAQ a été réalisée à partir des questions fréquemment posées sur les forums Delphi et Delphi et bases de données de www.developpez.com et de l'expérience personnelle des auteurs.

Nous tenons à souligner que cette FAQ ne garantit en aucun cas que les informations qu'elle propose soient correctes. Les auteurs font le maximum, mais l'erreur est humaine. Cette FAQ ne prétend pas non plus être complète. Si vous souhaitez y apporter des corrections ou la compléter, contactez un responsable (lien au bas de cette page).

Nous espérons que cette FAQ saura répondre à vos attentes. Nous vous en souhaitons une bonne lecture.

L'équipe Delphi de Developpez.com.

Commentez

Sommaire →OpenOffice.org →OpenOffice - Tableur (29)

Comment exporter au format PDF sous Calc ?

Comment exporter au format PDF sous Calc ?

Voici un code d'exemple, qu'il faut bien sur l'adapter selon votre projet :

Code Delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
procedure SavePdf(const AFileName: String); 
var 
    AApp, ADeskTop, AUno, ALocale, MySheet, MyBook, MyProp: Variant; 
    FichierPDF: String; 
begin 
    try 
        AApp := CreateOleObject('com.sun.star.ServiceManager'); 
        ADeskTop := CreateUnoService('com.sun.star.frame.Desktop'); 
        AUno := CreateUnoService('com.sun.star.frame.DispatchHelper'); 
        ALocale := CreateUnoService('com.sun.star.Lang.Locale'); 
  
        MyBook := ADesktop.LoadComponentFromURL('file:///' + StringReplace(AFileName , '\', '/',[rfReplaceAll]), '_default', 0, FileProp); 
        // Activer la première feuille 
        MySheet := MyBook.getSheets.getByIndex(0); 
        MyBook.getCurrentController.setActiveSheet(MySheet); 
  
        // Change l'extension du nom du fichier en pdf 
        FichierPDF := StringReplace(AFileName, ExtractFileExt(AFileName), '.pdf', []); 
  
        // Propriété pour l'export 
        MyProp := VarArrayCreate([0, 1], varVariant); 
        MyProp[0] := AApp.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); 
        MyProp[0].Name := 'URL'; 
        MyProp[0].Value := 'file:///' + StringReplace(FichierPDF , '\', '/',[rfReplaceAll]); 
        MyProp[1] := AApp.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); 
        MyProp[1].Name := 'FilterName'; 
        MyProp[1].Value := 'calc_pdf_Export'; 
  
        AUno.executeDispatch(ADesktop.CurrentFrame, '.uno:ExportDirectToPDF', '', 0, MyProp); 
  
        MyBook.Close(True); 
        ADeskTop.Terminate; 
    except 
        on E: Exception do 
        .... 
    end; 
    MySheet := Unassigned; 
    MyBook := Unassigned; 
    AApp := Unassigned; 
end;

Il existe deux méthodes d'export sous Open Office :

ExportToPDF ;
ExportDirectToPDF.

Les deux aboutissent au même résultat mais la première affiche la fenêtre d'options d'exportation de PDF alors que la seconde exporte directement.
Il est toutefois possible de spécifier des valeurs, qui sont présentes dans la fenêtre d'options, en créant une propriété FilterData.
Dans ce cas, il faudra modifier le code :

Code Delphi :

Sélectionner tout

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
        MyProp := VarArrayCreate([0, 2], varVariant); 
        MyProp[0] := AApp.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); 
        MyProp[0].Name := 'URL'; 
        MyProp[0].Value := 'file:///' + StringReplace(FichierPDF , '\', '/',[rfReplaceAll]); 
        MyProp[1] := AApp.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); 
        MyProp[1].Name := 'FilterName'; 
        MyProp[1].Value := 'writer_pdf_Export'; 
  
        // Créer autant de propriété que voulue mais penser a changer la taille du tableau 
        MyFilterData := VarArrayCreate([0, 0], varVariant); 
        MyFilterData[0] := AApp.Bridge_GetStruct('com.sun.star.beans.PropertyValue'); 
        MyFilterData[0].Name := 'DisplayPDFDocumentTitle'; 
        MyFilterData[0].Value := True; 
  
        MyProp[2].Name := 'FilterData'; 
        MyProp[2].Value := MyFilterData;

Je vous invite à lire la documentation officielle pour des infos détaillées sur chaque argument dans les sections "PDF Export filter data" et "Filter data demo".

Ce code est fonctionnel sous Delphi version XE, OpenOffice 3.4.1 et LibreOffice 4.0.

Mis à jour le 10 avril 2014 HumanTool

API Tutorials : PDF Export

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça

Titre de la question

Réponse à la question

Liens sous la question

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2024 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.