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

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

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

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

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


« Ответ #57322: 2 Февраль 2021, 08:44 »

Добрый день.
Сталкивался ли кто-нибудь с задачей вывода на печать указанных в макроса страниц.?
Процедура написанная на основе примера из руководства Питоньяка не работает, выводит только первую страницу из списка.
Код:
     Dim aPrn(1) as new com.sun.star.beans.PropertyValue
      aPrnList = Array(5, 6, 7, 8, 9)
      Dim CellRangeAddress(UBound(aPrnList)) As New com.sun.star.table.CellRangeAddress
    
      For ind=0 To UBound(aPrnList)
        oSheet = ThisComponent.Sheets(aPrnList(ind))
        CellRangeAddress(ind).Sheet = aPrnList(ind)
        CellRangeAddress(ind).StartColumn = 0
        CellRangeAddress(ind).StartRow = 0
        CellRangeAddress(ind).EndColumn = GetLastUsedColumn(oSheet)   ' GetLastUsedColumn - возвращает целое число
        CellRangeAddress(ind).EndRow = GetLastUsedRow(oSheet)          ' GetLastUsedRow  - возвращает целое число
        oSheet.setPrintAreas(Array())
        oSheet.setPrintAreas(CellRangeAddress())            
      Next  

 aPrn(0).Name  = "Wait" ' ожидать пока напечатается
 aPrn(0).Value = True
'          aPrn(1).Name  = "Pages"
'          aPrn(1).Value = "5-9"
 
 ThisComponent.Print(aPrn())

Если раскомментить "Pages" вообще пустой лист только выводится

« Последнее редактирование: 2 Февраль 2021, 11:57 от Sliv0210 » Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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