Discussion :

[toutou2000]

Bonjour à tous le monde.
Voila j'ai un programme Delphi qui donne des résultats sous format de pages Excel. Mes responsables veulent que je transforme ses fichiers Excel en fichiers pdf.
Est ce que c'est possible de le faire en Delphi Sinon JAVA Sinon C#

Merci beaucoup à l'avance.

[anapurna]

salut

pourquoi ne pas utiliser un utilitaire tels que pdfcreator
celui-ci s'utilise comme une imprimante

@+ Phil

[toutou2000]

salut

pourquoi ne pas utiliser un utilitaire tels que pdfcreator
celui-ci s'utilise comme une imprimante

@+ Phil

Merci pour votre réponse mais le problème qu'on veux faire ça automatique sans l'intervention humain? donc ma question est-ce que possible de lancer pdfcreator et transformer mes fichier à partir de l'un des langage cité ci-dessus?

[SergioMaster]

je ne comprends pas vraiment la question. S'il s'agit de creer directement un fichiers PDF pourquoi ne pas passer par RaveReport au lieu de creer un fichiers Excel ? ce n'est après tout qu'une édition

[toutou2000]

En fait l'application qui génère les fichier Excel existe depuis long temps!! et on a déjà des centaines ou même de milliers de fichier générés. Donc j'ai pas d'autre solution que faire ça avec un langage de programmation !
Merci

[anapurna]

salut

tu ne paut pas lancer un print de ton fichier ecxel ?

si oui je le repete pdfcreator est la meilleur alternative

@+ Phil

[toutou2000]

Bonjour à tout le monde. Je voudrais transformer des fichier Excel en pdf et j'utilise pdfCreator. j'ai presque réussi à le faire, mais j'ai rencontrer un problème. voila déjà le code que j'utilise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
 
unit ToPDF;
 
interface
 
uses
  SysUtils, Classes, PDFCreator_TLB, ExtCtrls, Forms, Windows, dialogs;
 
type
  Tftopdf = class(TDataModule)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Instance de PDF Creator }
    PDFCreator: TclsPDFCreator;
    {Instance du gestionnaire d'erreurs de PDF Creator.
    Sera affecté en cas d'erreur uniquement.}
    PDFError: clsPDFCreatorError;
    {Flag indiquant la disponibilité du document produit}
    ReadyState: boolean;
    {Méthode chargée du lancement de l'impression.
    Le paramètre FileType indique le type de document à produire.}
    //procedure PrintIt(FileType: integer);
    {Gestionnaire des erreurs pour PDF Creator}
    procedure PDFCreatorError(Sender: TObject);
    {Gestionnaire permettant un traitement lorsque PDF Creator a fini
    la production d'un document PDF.}
    procedure PDFCreatorReady(Sender: TObject);
  public
    { Déclarations publiques }
    {Convertire le fichier vers pdf}
    procedure ConvertToPdf(FileType: integer; CheminFichier:String);
  end;
 
var
  ftopdf: Tftopdf;
 
implementation
 
 
{$R *.dfm}
const
  {Time-out}
  MaxTime = 20;
 
procedure Tftopdf.ConvertToPdf(FileType: integer;CheminFichier : String);
Var
  FName, Error, Parameters : String;
  DefaultPrinter: Widestring;
  Opt: clsPDFCreatorOptions;
begin
 
   Error := '';
  //instanciation de PDF Creator
  Timer1.Enabled := False;
  PDFCreator := TclsPDFCreator.Create(Self);
  //Connexion des gestionnaires d'évènements
  PDFCreator.OneError := PDFCreatorError;
  PDFCreator.OneReady := PDFCreatorReady;
  //pas de traitement au démarrage
  Parameters := '/NoProcessingAtStartup';
 
  //teste si on peut démarrer le serveur
  if not PDFCreator.cStart(Parameters, False) then
    begin
      Error:= 'Status : Erreur[' + IntToStr(PDFError.Number)
        + '] : ' + PDFError.Description;
      MessageBox(0,'Erreur de connexion au PDFCreator','ERREUR',MB_ICONERROR or MB_OK);
    end;
  if Error = '' then
    begin
      FName := ExtractFileName(CheminFichier);
      FName := ChangeFileExt(FName,'');
      //Options de conversion du document
      Opt := PDFCreator.cOptions;
      Opt.UseAutosave := 1;
      Opt.UseAutosaveDirectory := 1;
      Opt.AutosaveDirectory := ExtractFilePath(CheminFichier);
      Opt.AutosaveFormat := FileType;
      if FileType = 5 then
        Opt.BitmapResolution := 72;
      Opt.AutosaveFilename := FName;
      PDFCreator.cOptions := Opt;
      PDFCreator.cClearCache;
      //non documenté !
      if FileType = 5 then
        Opt.BitmapResolution := 72;
      Opt.AutosaveFilename := FName;
      PDFCreator.cOptions := Opt;
      PDFCreator.cClearCache;
      //sauvegarde du nom de l'imprimante actuelle
      DefaultPrinter := PDFCreator.cDefaultPrinter;
      PDFCreator.cDefaultPrinter := 'PDFCreator';
      PDFCreator.cPrintFile(CheminFichier);
      PDFCreator.cPrinterStop := False;
      ReadyState := False;
      //Boucle d'attente de fin de traitement
      Timer1.Interval := MaxTime * 1000;
      Timer1.Enabled := True;
 
      while not ReadyState and Timer1.Enabled do
        Application.ProcessMessages;
          // si timeout...
      if not ReadyState then
        MessageBox(0, 'Une erreur s''est produite : dépassement du temps alloué',
          'Création de la page de test', MB_ICONEXCLAMATION or MB_OK);
 
      PDFCreator.cPrinterStop := True;
      //restauration du nom de l'imprimante
      PDFCreator.cDefaultPrinter := DefaultPrinter;
      //Fermeture du seveur
      PDFCreator.cClose;
      PDFCreator.Free;
    end;
end;

le problème avec ce code qu'il me transforme que la première feuil de mon fichier Excel. Moi je veux qu'il me transforme les deux feuil et si possible les mettre dans le même fichier pdf.