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


  Dim docToConvert As String = "d:\test.doc"

  Dim DC As Object : DC = CreateObject("Neevia.docCreator")

  Dim tempFile As String = DC.getParameter("TempDir") & DC.GUID & ".ps"

  DC.setParameter("DocumentOutputFormat", "PDF")
  DC.setParameter("DocumentOutputName", "testDOC_VBNET")
  DC.setParameter("DocumentOutputFolder", "d:\")

  Dim MSWord As Object : MSWord = CreateObject("Word.Application")
  MSWord.DisplayAlerts = False
  On Error Resume Next

  Dim NewDoc As Object
  NewDoc = MSWord.Documents.Open(docToConvert, False, True)
  If Err.Number <> 0 Then
    MSWord = Nothing
  End If

  Dim MSWordDialog As Object : MSWordDialog = MSWord.Dialogs(97)
  MSWordDialog.Printer = "Neevia docCreator"
  MSWordDialog.DoNotSetAsSysDefault = 1
  MSWordDialog.Execute()

  NewDoc.PrintOut(False, , , tempFile, , , , , , , True)

  NewDoc.Close(False)
  MSWord.Quit(False)
  MSWord = Nothing

  DC.setInputDocument(tempFile)

  Dim RVal As Integer = DC.create ' Create output document
  DC.fileDelete(tempFile)

  DC = Nothing

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



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