Помогите с PrintPreview [РЕШЕНО]

Автор odyssey, 8 апреля 2014, 08:14

0 Пользователи и 1 гость просматривают эту тему.

odyssey

Здравствуйте. Подскажите как в LibreOffice Calc открыть предварительный просмотр документа с помощью макроса?

Yakov

Самый простой способ - с помощью диспетчера:

Sub PrintPreviewFromDispatcher

  Dim oFrame As Object
  Dim oDispath As Object
  ' Получаем фрейм документа
  oFrame      = ThisComponent.CurrentController.Frame
  ' Создаём диспетчер
  oDispath   = createUnoService("com.sun.star.frame.DispatchHelper")
  ' Выполняем действие
  oDispath.executeDispatch(oFrame, ".uno:PrintPreview", "", 0, Array())
End Sub

Список .uno комманд:
https://wiki.openoffice.org/wiki/Framework/Article/OpenOffice.org_3.x_Commands

odyssey

Премного благодарен! Все работает :) Можно еще вопрос: как вывести дату в формате "апрель 2014"?

Yakov