Neevia Technology Sites:   www.neevia.com  |  docuPub.com  |  www.neeviaPDF.com
:: Home :: Products :: Technical Support :: About Us :: Contact Us
Technical support > Neevia docuPrinter SDK code samples
Example 3: Convert a MS Word document into PDF (docuPrinter Word Macro) from Delphi  Print Example 

procedure TForm1.Button1Click(Sender: TObject);
var
  RVal : Integer;

  DPSDK, DPWORD,
  MSWord,
  NewDoc          : Variant;
  docToConvert    : String;
begin

   docToConvert:='c:\test.doc';

   try
     DPSDK:=CreateOleObject('docuPrinter.SDK');
     DPSDK.DocumentOutputFormat:= 'PDF';
     DPSDK.DocumentOutputName:= 'demoDOC';
     DPSDK.DocumentOutputFolder:= 'c:\';

     DPSDK.HideSaveAsWindow:= true;
     DPSDK.DefaultAction:=1;
     DPSDK.ApplySettings;

     try

       DPWORD:= CreateOleObject('docuPrinter.WordMacro');

       DPWORD.CHBookmarks:=true;
       DPWORD.CInternetLink:=true;
       DPWORD.CCrosRef:=true;
       DPWORD.CCrosDoc:=true;
       DPWORD.LinkFootEnd:=true;
       DPWORD.CWordTextBox:=true;
       DPWORD.CDocInfo:=true;
       DPWORD.CBookNameDest:=true;
       DPWORD.CComNotes:=true;
       RVal := DPWORD.ConvertDocument(docToConvert);

       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
     DPWORD:= Unassigned;
     DPSDK := Unassigned;
   end;  

end;



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