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

Автор ForumOOo (бот), 13 марта 2016, 21:48

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

ForumOOo (бот)

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

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

--
Подпись: VICM

rami

Цитата: ForumOOo (бот) от 13 марта 2016, 19:48Подскажите пожалуйста как выглядит макрос печати конкретных страниц с заданным числом копий.
Скромно так выглядит:
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

Цитата: rami от 15 марта 2016, 12:54
Цитата: ForumOOo (бот) от 13 марта 2016, 19:48Подскажите пожалуйста как выглядит макрос печати конкретных страниц с заданным числом копий.
Скромно так выглядит:
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))
Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут

alpold

Цитата: Bigor от 10 апреля 2019, 16:36ThisComponent.CurrentController.setActiveSheet(ThisComponent.Sheets(1))
просто вставить в код верно понимю..сейчаспросто нет возможности проверить не на работе