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

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

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

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

Сообщений: 20


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

Походу на этом форуме я на постоянно  Улыбка.

У меня короткий вопрос.

Как можно сделать чтобы после выполнения кода:
Код:
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

Printable i Print возвращались на значение true.
Тогда можно было бы  обойтись одной кнопкой и одним макросом!
Записан
Страниц: 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!