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

   Sub IEConverter()

      Dim IE As Object = CreateObject("InternetExplorer.Application")
      IE.Visible = True

      Dim DPSDK As Object = CreateObject("docuPrinter.SDK")

      IE.navigate2("http:\\www.neevia.com")
      DPSDK.doSleep(100)

      While (IE.ReadyState <> 4) Or (IE.Busy)
        DPSDK.doSleep(100)
      End While

      DPSDK.DocumentOutputFormat = "PDF"
      DPSDK.DocumentOutputFolder = "c:\users\public\"
      DPSDK.DocumentOutputName = "testURL"

      DPSDK.HideSaveAsWindow = True
      DPSDK.DefaultAction = 1

      DPSDK.ApplySettings()

      Dim defPrinter As String = DPSDK.GetDefaultPrinter
      DPSDK.SetDefaultPrinter("docuPrinter")

      IE.ExecWB(6, 2)

      Dim RVal As Integer = DPSDK.Create
      If (RVal <> 0) Then MsgBox("Error while creating the document!!!")

      IE.Quit()

      DPSDK.SetDefaultPrinter(defPrinter)

      IE = Nothing
      DPSDK = Nothing

      MsgBox("Done converting!!!")

   End Sub