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 5: Convert a MS Access report into PDF from Visual Basic  Print Example 


   Dim DC : Set DC = CreateObject("Neevia.docCreator")
 
   DC.setParameter "DocumentOutputFormat", "PDF"
   DC.setParameter "DocumentOutputName", "testAccess_VB"
   DC.setParameter "DocumentOutputFolder", "d:\"
 
   Dim RVal : RVal = DC.startPrinting
   If (RVal <> 0) Then MsgBox "Error while calling StartPrinting method!!!"
 
   Dim objAccess
   Set objAccess = CreateObject("Access.Application")
 
   Dim defPrinter : defPrinter=DC.getDefaultPrinter
 
   DC.setDefaultPrinter DC.newPrinterName
   objAccess.OpenCurrentDatabase "d:\access.mdb", true

   objAccess.DoCmd.OpenReport "rptCatalog", 0
   'rptCtatalog is the repport name

   objAccess.Quit 2
   Set objAccess=nothing
 
   DC.setDefaultPrinter defPrinter
 
   DC.setParameter "DocumentResolution", "300"
  
   RVal = DC.create ' Create output document
   If (RVal <> 0) Then MsgBox "Error. Create returns "+CStr(Rval)
 
   RVal = DC.stopPrinting
   If (RVal <> 0) Then MsgBox "Error while calling StopPrinting method!!!"

   Set DC = Nothing

   MsgBox "Done converting!!!"



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