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 6: Convert a WordPerfect document into PDF from Visual Basic  Print Example 


   Dim docToConvert : docToConvert="d:\test.wpd"

   Dim objWordPerfect
   Set objWordPerfect = CreateObject("WordPerfect.PerfectScript")
   objWordPerfect.AppMaximize
   objWordPerfect.Backup 0
   objWordPerfect.BackupOriginalDoc 0
   objWordPerfect.PerfectExpert 0

   Dim DC : Set DC = CreateObject("Neevia.docCreator")

   objWordPerfect.FileOpen docToConvert

   DC.doSleep(100)

   DC.setParameter "documentOutputFormat", "PDF"
   DC.setParameter "documentOutputName", "testWP_VB"
   DC.setParameter "documentOutputFolder", "d:\"

   Dim RVal : RVal = DC.startPrinting
   If (RVal <> 0) Then
     MsgBox "Error while calling StartPrinting method!!!"
   End If

   objWordPerfect.PrintTo docToConvert, DC.newPrinterName

   RVal = DC.create ' Create output document
   If (RVal <> 0) Then MsgBox "Error while creating document!!!"

   objWordPerfect.CloseNoSave 0
   objWordPerfect.Quit

   RVal = DC.stopPrinting 
   If (RVal <> 0) Then MsgBox "Error while calling StopPrinting method!!!"

   Set objWordPerfect=Nothing
   Set DC=Nothing

   MsgBox "Done converting!!!"



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