Neevia Technology Sites:   www.neevia.com  |  docuPub.com  |  www.neeviaPDF.com
:: Home :: Products :: Technical Support :: About Us :: Contact Us
Technical support > Neevia docCreator code samples
Example 4: Convert a PowerPoint document into PDF from Delphi  Print Example 


procedure createPDF();
var
  DC,
  MSPowerPoint,
  PPTDoc : Variant;
  docToConvert,
  tempFile : String;
  RVal : Integer;
begin
   docToConvert := 'd:\test.ppt';
   try
     DC := CreateOleObject('Neevia.docCreator');

     DC.setParameter('DocumentOutputFormat', 'PDF');
     DC.setParameter('DocumentOutputName', 'testPPT_Delphi');
     DC.setParameter('DocumentOutputFolder', 'd:\');

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

     try
       MSPowerPoint := CreateOleObject('PowerPoint.Application');
       PPTDoc := MSPowerPoint.Presentations.Open(docToConvert, -1, 0, 0);
       PPTDoc.PrintOptions.PrintInBackground := 0;
       PPTDoc.PrintOptions.PrintColorType := 1;
       PPTDoc.PrintOptions.ActivePrinter := 'Neevia docCreator';
       PPTDoc.PrintOut(0, 9999, tempFile, 1, 0);
       PPTDoc.Close;
       MSPowerPoint.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;
    MSPowerPoint := Unassigned;
  end;
end;



Copyright © 1999-2016 Neevia Technology. All Rights Reserved. Home | Products | Technical Support | About Us | Contact Us