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

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

27 Ноябрь 2021, 23:26 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Печать заданных страниц в книге  (Прочитано 982 раз)
0 Пользователей и 1 Гость смотрят эту тему.
sokol92
Форумчанин
***
Offline Offline

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


WWW
« Ответ #57328: 2 Февраль 2021, 19:51 »

Или альтернатива к ответу #3 - выделяем листы и печатаем:

Код:
Sub TestPrint2
 Dim aPrn(0) as new com.sun.star.beans.PropertyValue
 Dim aSel(0) as new com.sun.star.beans.PropertyValue
 With createUnoService("com.sun.star.frame.DispatchHelper") 
    aSel(0).Name="Tables"
    aSel(0).Value=Array(0, 2)  ' номера листов для печати
    .executeDispatch(ThisComponent.CurrentController.Frame, ".uno:SelectTables", "", 0, aSel)
 End With   
 
 aPrn(0).Name  = "Wait" ' ожидать пока напечатается
 aPrn(0).Value = True
 ThisComponent.Print(aPrn())
End Sub

Записан

Владимир.
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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