Макрос для перехода по листам

[m010103]

Здравствуйте форумчане.

Появилась задача автоматизировать Libreoffice Calc/
Суть проста , есть три листа в книге. "Title", "Blank1", "Blank2"
На первом листе кнопки, к ним прикручены макросы.
Макрос 1 Переходит на лист "Blank1" и делает предпросотр листа, если жмем "Закрыть просмотр" , должен вернуться на лист Title.

Все что смог нарисовать естественно не работает. Помогите решить проблему. Спасибо.

Код: [Выделить]

sub GoTOBlank1
dim document   as object
dim dispatcher as object

document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

Temp = thiscomponent.Sheets.getByName("Blank1")
thiscomponent.currentController.activeSheet = Temp

' Предварительный просмотр выбранного листа
dispatcher.executeDispatch(document, ".uno:PrintPreview", "", 0, Array())

Temp = thiscomponent.Sheets.getByName("Title")
thiscomponent.currentController.activeSheet = Temp

end sub