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:\"
    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