Sub ExcelConverter()
Dim docToConvert : docToConvert="c:\test.xls"
Dim DPSDK : Set DPSDK = CreateObject("docuPrinter.SDK")
DPSDK.BackupSettings
DPSDK.DocumentOutputFormat = "PDF"
DPSDK.DocumentOutputName = "demoXLS"
DPSDK.DocumentOutputFolder = "c:\"
DPSDK.HideSaveAsWindow = true
DPSDK.DefaultAction=1
DPSDK.ApplySettings
Dim MSExcel : Set MSExcel = CreateObject("Excel.Application")
MSExcel.DisplayAlerts = False
Dim XLDoc : Set XLDoc = MSExcel.Workbooks.Open(docToConvert, 0, True)
XLDoc.Activate
XLDoc.PrintOut ,,, False, "docuPrinter"
XLDoc.Saved = True
XLDoc.Close
MSExcel.Quit
Set MSExcel = Nothing
Dim RVal : RVal = DPSDK.Create ' Create output document
DPSDK.RestoreSettings
Set DPSDK = Nothing
If (RVal <> 0) Then
MsgBox "Error while converting the document!!!"
Else
MsgBox "Done converting!!!"
End If
End Sub