Как можно открыть отчёт (в режиме 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;