Neevia Technology Sites:   www.neevia.com  |  docuPub.com  |  www.neeviaPDF.com
:: Home :: Products :: Technical Support :: About Us :: Contact Us
Technical support > Neevia docuPrinter SDK code samples
Example 4: Convert a MS Excel document into PDF from VB.NET  Print Example 

Sub ExcelConverter()

    Dim docToConvert As String = "c:\test.xls"

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

    DPSDK.DocumentOutputFormat = "PDF"
    DPSDK.DocumentOutputName = "demoXLS"
    DPSDK.DocumentOutputFolder = "c:\"

    DPSDK.HideSaveAsWindow = True
    DPSDK.DefaultAction = 1

    DPSDK.ApplySettings()

    Dim MSExcel As Object = CreateObject("Excel.Application")
    MSExcel.DisplayAlerts = False

    Dim XLDoc As Object = MSExcel.Workbooks.Open(docToConvert, 0, True)

    XLDoc.Activate()
    XLDoc.PrintOut(, , , False, "docuPrinter")
    XLDoc.Saved = True
    XLDoc.Close()
    MSExcel.Quit()
    MSExcel = Nothing

    Dim RVal As Integer = DPSDK.Create ' Create output document
    DPSDK = Nothing

    If (RVal <> 0) Then 
      MsgBox("Error while converting the document!!!")
    Else
      MsgBox("Done converting!!!")
    End If

End Sub



Copyright © 1999-2016 Neevia Technology. All Rights Reserved. Home | Products | Technical Support | About Us | Contact Us