Как можно открыть отчёт (в режиме Print Preview а также print direct) в MS Access ?

Previous  Top  Next

    
 

 

 

Code:

var

Access: Variant;

begin

// Открываем Access

try

   Access := GetActiveOleObject('Access.Application');

except

   Access := CreateOleObject('Access.Application');

end;

Access.Visible := True;

 

// Открываем базу данных

// Второй параметр указывает - будет ли база открыта в Exclusive режиме

Access.OpenCurrentDatabase('C:\My Documents\Books.mdb', True);

 

// открываем отч?т

{Значение второго пораметра может быть одним из следующих

acViewDesign, acViewNormal, or acViewPreview. acViewNormal,

которые устанавливаются по умолчанию, для печати отч?та.

Если Вы не используете библиотеку типов, то можете определить

эти значения следующими:

 

const

acViewNormal = $00000000;

acViewDesign = $00000001;

acViewPreview = $00000002;

 

Третий параметр - это имя очереди для текущей базы данных.

Четв?ртый параметр - это строка для SQL-евского WHERE -

то есть строка SQL, минус WHERE.}

 

Access.DoCmd.OpenReport('Titles by Author', acViewPreview, EmptyParam,

   EmptyParam);

 

< ... >

 

// Закрываем базу данных

Access.CloseCurrentDatabase;

 

// Закрываем Access

{const

acQuitPrompt = $00000000;

acQuitSaveAll = $00000001;

acQuitSaveNone = $00000002;}

Access.Quit(acQuitSaveAll);

end;

 

©Drkb::02754