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 10: Convert an URL / HTML into PDF from Delphi  Print Example 

procedure TForm1.Button1Click(Sender: TObject);
var
  RVal : Integer;
  IE, DPSDK       : Variant;
  defPrinter      : String;
begin
   try
     DPSDK:=CreateOleObject('docuPrinter.SDK');
     DPSDK.DocumentOutputFormat:= 'PDF';
     DPSDK.DocumentOutputName:= 'testURL';
     DPSDK.DocumentOutputFolder:= 'c:\';

     DPSDK.PDFAutoRotatePage:= 'PageByPage';
     DPSDK.DocumentResolution:= 300;
     DPSDK.HideSaveAsWindow:= true;
     DPSDK.DefaultAction:=1;
     DPSDK.ApplySettings;

     try
       IE:= CreateOleObject('InternetExplorer.Application');
       DPSDK.doSleep(100);
       IE.Visible:=True;
       IE.navigate2('http:\\www.neevia.com');

       While (IE.ReadyState<>4) or (IE.Busy) do
       begin
         DPSDK.doSleep(100);
         Application.ProcessMessages;
       end;

       defPrinter:= DPSDK.GetDefaultPrinter;
       DPSDK.SetDefaultPrinter('docuPrinter');
       IE.ExecWB(6,2,emptyparam,emptyparam);

       RVal:= DPSDK.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;
     
   IE.Quit;
   DPSDK.SetDefaultPrinter(defPrinter);
   finally
     DPSDK:= Unassigned;
     IE:= Unassigned;
   end;  

end;



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