[oodisc] Печать страниц в установленном порядке.

[Guest007]

В сообщении от Среда 23 Март 2005 19:54 Владислав Орлов написал(a):
> rem Author: Vladislav Orlov aka JohnSUN, 23.05.2005
> rem email:   software на pro-za.com.ua
> Sub PrintCurrentDocToBooklet
> rem Процедура выводит на печать часть документа "от сих до сих",
> rem нарезая его постранично на заданное количество листов
> rem Опишем переменные
> Dim document As object, dispatcher As object
> Dim iStartPage As Long, iFinishPage As Long, iCountPage As Long
> Dim sTemp As String, i As Long, iRez As Integer
>
> rem Получим доступ к текущему документу.
> document   = ThisComponent.CurrentController.Frame
Чёй-то ругнулось на то, что document -- это синтаксическая ошибка

> dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
>

-- 
WBR Guest007
JID: guest007 на jabber.ru