Scalabium Software

SMExport advertising
Knowledge for your independence'.
Home Delphi and C++Builder tips


#83: How I can open a report (in Print Preview mode and also print direct) in an MS Access database?

In the next small example I'll demonstrate how you can call the report in MS Access:

var 
  Access: Variant; 
begin 
  {open the Access application}
  try 
    Access := GetActiveOleObject('Access.Application'); 
  except 
    Access := CreateOleObject('Access.Application'); 
  end; 
  Access.Visible := True; 

  { open the database 
   The second parameter specifies whether you want to open the 
   database in Exclusive mode}
  Access.OpenCurrentDatabase('C:\My Documents\Books.mdb', True); 

  { open the report 
   The value for the second parameter should be one of 
   acViewDesign, acViewNormal, or acViewPreview. acViewNormal, which is the
   default, prints the report immediately. If you are not using the type
   library, you can define these values like this: 

  const 
    acViewNormal = $00000000; 
    acViewDesign = $00000001; 
    acViewPreview = $00000002; 

  The third parameter is for the name of a query in the current 
  database. The fourth parameter is for a SQL WHERE clause - the string must
  be valid SQL, minus the WHERE.} 
  Access.DoCmd.OpenReport('Titles by Author', acViewPreview, EmptyParam, EmptyParam); 

<...> 
  {close the database}
  Access.CloseCurrentDatabase; 

  {close the Access application}
  {const 
    acQuitPrompt = $00000000; 
    acQuitSaveAll = $00000001; 
    acQuitSaveNone = $00000002;} 
  Access.Quit(acQuitSaveAll); 
end; 


Published: June 1, 2000

See also
 
Protected Storage Viewer
Excel Web-stream
Paradox Password Recovery
DBExport tools
Viewer for MS Outlook Messages
Fast Document Viewer
SMMsg suite
Metafile Convert
SMDBGrid
DBISAM Password Recovery
 
 


Contact to webmaster

 

Borland Software Code Gear Scalabium Delphi tips

Copyright© 1998-2024, Scalabium Software. All rights reserved.
webmaster@scalabium.com

SMExport/SMImport suites