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

   Sub IEConverter()

       Dim IE : Set IE = CreateObject("InternetExplorer.Application")
       IE.Visible=true
 
       Dim DPSDK : Set DPSDK = CreateObject("docuPrinter.SDK")
       DPSDK.BackupSettings
 
       IE.navigate2 "http:\\www.neevia.com"
       DPSDK.doSleep 100
 
       While (IE.ReadyState<>4) or (IE.Busy)
         DPSDK.doSleep 100
       Wend
 
       DPSDK.DocumentOutputFormat="PDF"
       DPSDK.DocumentOutputFolder="c:\users\public\"
       DPSDK.DocumentOutputName="testURL"
 
       DPSDK.HideSaveAsWindow = true
       DPSDK.DefaultAction=1
 
       DPSDK.ApplySettings
 
       Dim defPrinter : defPrinter = DPSDK.GetDefaultPrinter
       DPSDK.SetDefaultPrinter "docuPrinter"
 
       IE.ExecWB 6,2
 
       Dim RVal : RVal = DPSDK.Create  
       If (RVal <> 0) Then MsgBox "Error while creating the document!!!"
 
       IE.Quit
 
       DPSDK.SetDefaultPrinter defPrinter
 
       Set IE=Nothing

       DPSDK.RestoreSettings
       Set DPSDK=Nothing
 
       MsgBox "Done converting!!!"

   End Sub