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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

От: Святой Петр

Кому: Всем на Земле

Дата Октябрь, 1999 от рождества Христова

Тема: Не помирать!

Для ускорения регистрационного процесса у врат Рая, мы стали использовать Microsoft Access, после чего у нас начались серьeзные проблемы. А посему, пожалуйста, не помирайте пока!

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;

{/codecitation}