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

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

17 Май 2021, 21:37 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 »   Вниз
  Печать  
Автор Тема: Макрос - Вывод на печать документы без логотипа в шапке страницы[РЕШЕНО]  (Прочитано 9192 раз)
0 Пользователей и 1 Гость смотрят эту тему.
wlad
Участник
**
Offline Offline

Сообщений: 20


« Ответ #34464: 22 Февраль 2016, 18:18 »

Спасибо за быстрые ответы JohnSUN и rami!

rami взял ваш код, работает идеально!

В итоге получилось так с учетом замечаний от JohnSUN:
печать c logo i shape:
Код:
Sub withLogos

Dim vEnum, oShape
vEnum = thisComponent.getDrawPage().createEnumeration()
Do While vEnum.hasMoreElements()
   oShape = vEnum.nextElement()
      If oShape.Name="Shape" Then oShape.Printable=true
Loop
ThisComponent.GraphicObjects.getByName("Grafik").Print=true
 createUnoService("com.sun.star.frame.DispatchHelper").executeDispatch(ThisComponent.CurrentController.Frame, ".uno:Print", "", 0, Array()) 
End Sub

печать без logo i shape:
Код:
Sub withoutLogos

Dim vEnum, oShape
vEnum = thisComponent.getDrawPage().createEnumeration()
Do While vEnum.hasMoreElements()
   oShape = vEnum.nextElement()
      If oShape.Name="Shape" Then oShape.Printable=false
Loop
ThisComponent.GraphicObjects.getByName("Grafik").Print=false
 createUnoService("com.sun.star.frame.DispatchHelper").executeDispatch(ThisComponent.CurrentController.Frame, ".uno:Print", "", 0, Array()) 
End Sub

Файл примера прикрепляю к сообщению

* test2.odt (774.74 Кб - загружено 9 раз.)
Записан
Страниц: 1 2 »   Вверх
  Печать  
 
Перейти в:  

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