Макрос печать. Подскажите как выглядит мак...

[ForumOOo (бот)]

Компонент: Calc
Версия продукта: 5.x
Сборка: Apache OpenOffice
ОС: Windows 7

Макрос печать.
Подскажите пожалуйста как выглядит макрос печати конкретных страниц с
заданным числом копий.
При выполнении макроса, записанного стандартным рекордером, появляется
окно "св.печати", в котором каждый раз нужно указывать число копий,
это не совсем то, что надо..

--
Подпись: VICM

[rami]

Подскажите пожалуйста как выглядит макрос печати конкретных страниц с заданным числом копий.

Скромно так выглядит:

Код Выделить Развернуть

Sub PrintList
Dim Props(2) As New com.sun.star.beans.PropertyValue
Props(0).Name="Pages"
Props(0).Value="1,3-5" 'страницы и диапазоны страницы для печати.
'страницы перечисляются через запятую, диапазоны страниц — через тире
Props(1).Name="CopyCount"
Props(1).Value=2 'число копий для печати
ThisComponent.Print(Props())
End Sub

[alpold]

Подскажите пожалуйста как выглядит макрос печати конкретных страниц с заданным числом копий.

Скромно так выглядит:

Код Выделить Развернуть

Sub PrintList
Dim Props(2) As New com.sun.star.beans.PropertyValue
Props(0).Name="Pages"
Props(0).Value="1,3-5" 'страницы и диапазоны страницы для печати.
'страницы перечисляются через запятую, диапазоны страниц — через тире
Props(1).Name="CopyCount"
Props(1).Value=2 'число копий для печати
ThisComponent.Print(Props())
End Sub

подскажите где можно прописать лист с которого брать этот диапозон страниц?

[bigor]

вот эта строчка задает лист который будет печататься

Код Выделить Развернуть

ThisComponent.CurrentController.setActiveSheet(ThisComponent.Sheets(1))

[alpold]

ThisComponent.CurrentController.setActiveSheet(ThisComponent.Sheets(1))

просто вставить в код верно понимю..сейчаспросто нет возможности проверить не на работе