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

   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:\users\public\';

        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