Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

23 Апрель 2019, 05:44 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Макрос печать. Подскажите как выглядит мак...  (Прочитано 1401 раз)
0 Пользователей и 1 Гость смотрят эту тему.
ForumOOo (бот)

Offline Offline

Сообщений: 685


« Стартовое сообщение: 13 Март 2016, 21:48 »

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

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

--
Подпись: VICM
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 2 696


MacBook Pro, LibreOffice и Apache OpenOffice


« Ответ #1: 15 Март 2016, 12:54 »

Подскажите пожалуйста как выглядит макрос печати конкретных страниц с заданным числом копий.
Скромно так выглядит:
Код:
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
Форумчанин
***
Offline Offline

Сообщений: 101


« Ответ #2: 10 Апрель 2019, 16:17 »

Подскажите пожалуйста как выглядит макрос печати конкретных страниц с заданным числом копий.
Скромно так выглядит:
Код:
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
Опытный пользователь
***
Offline Offline

Пол: Мужской
Сообщений: 568


« Ответ #3: 10 Апрель 2019, 16:36 »

вот эта строчка задает лист который будет печататься
Код:
ThisComponent.CurrentController.setActiveSheet(ThisComponent.Sheets(1))
Записан
alpold
Форумчанин
***
Offline Offline

Сообщений: 101


« Ответ #4: 10 Апрель 2019, 16:50 »

ThisComponent.CurrentController.setActiveSheet(ThisComponent.Sheets(1))
просто вставить в код верно понимю..сейчаспросто нет возможности проверить не на работе
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!