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 Delphi  Print Example 


procedure createPDF();
var
  DC,
  objAccess : Variant;
  RVal : Integer;
  docToConvert,
  defPrinter : String;
begin
   docToConvert := 'd:\access.mdb';
   try
     DC := CreateOleObject('Neevia.docCreator');

     DC.setParameter('DocumentOutputFormat', 'PDF');
     DC.setParameter('DocumentOutputName', 'testAccess_Delphi');
     DC.setParameter('DocumentOutputFolder', 'd:\');

     RVal := DC.startPrinting;
     if (RVal <> 0) then
     begin
       ShowMessage('Error while calling StartPrinting method!!!');
       Exit;
     end;
     defPrinter := DC.getDefaultPrinter;

     try
       objAccess := CreateOleObject('Access.Application');
       DC.setDefaultPrinter(DC.newPrinterName);
       objAccess.OpenCurrentDatabase(docToConvert, true);

       //rptCtatalog is the repport name
       objAccess.DoCmd.OpenReport('rptCatalog', 0);

       objAccess.Quit(2);
       objAccess := Unassigned;

       DC.setDefaultPrinter(defPrinter);
       RVal := DC.create; // Create output document
       if (RVal <> 0) then
         ShowMessage('Error while creating document!!! Code: '+IntToStr(RVal))
       else
         ShowMessage('Document Created !!!');
     except
       on E: Exception do
         ShowMessage(E.Message);
     end;
   finally
     RVal := DC.stopPrinting;
     if (RVal <> 0) then ShowMessage('Error while calling StopPrinting!!!');
     DC := Unassigned;
     objAccess := Unassigned;
   end;
end;



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