Добрый день.
Сталкивался ли кто-нибудь с задачей вывода на печать указанных в макроса страниц.?
Процедура написанная на основе примера из руководства Питоньяка не работает, выводит только первую страницу из списка.
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" вообще пустой лист только выводится