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

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