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

[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]

Тема разделена
http://forumooo.ru/index.php/topic,4110.0.html