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

   procedure convertExcelToPDF();
   var
     DC,
     MSExcel,
     XLDoc : Variant;

     docToConvert,
     tempFile : String;
     RVal : Integer; 
   begin
     docToConvert := 'c:\users\public\test.xls';
     try
       DC := CreateOleObject('Neevia.docCreator');

       DC.setParameter('DocumentOutputFormat', 'PDF');
       DC.setParameter('DocumentOutputName', 'testXLS_Delphi');
       DC.setParameter('DocumentOutputFolder', 'c:\users\public\');

       tempFile := DC.getParameter('TempDir') + DC.GUID + '.ps';

       try
         MSExcel := CreateOleObject('Excel.Application');
         MSExcel.DisplayAlerts := false;
         XLDoc := MSExcel.Workbooks.Open(docToConvert, 0, true);

         XLDoc.Activate;
         XLDoc.PrintOut(emptyparam,emptyparam,
                        emptyparam, false, 'Neevia docCreator', true, 0, tempFile);
         XLDoc.Saved := true;
         XLDoc.Close;
         MSExcel.Quit;

         DC.setInputDocument(tempFile);
         RVal := DC.create; // Create output document
         if (RVal <> 0) then
           ShowMessage('Error while creating document!!! Code: '+IntToStr(RVal))
         else
           ShowMessage('Document Created !!!');
       except
        on E: Exception do
          ShowMessage(E.Message);
       end;
     finally
       DC := Unassigned;
       MSExcel := Unassigned;
     end;
   end;