Альбомная ориентация

[ishayahu]

Хочу выводить документ на печать в альбомной ориентациии, но даже если я ставлю

Код Выделить Развернуть

PrintProperties(0).Name = "PaperOrientation"
PrintProperties(0).Value = LANDSCAPE
результат ноль( У меня LibreOffice

[JohnSUN]

PaperOrientation состоит из двух констант - PORTRAIT и LANDSCAPE (обычные 0 и 1 соответственно).
В коде они записываются так:

Код Выделить Развернуть

com.sun.star.view.PaperOrientation.PORTRAIT или

Код Выделить Развернуть

com.sun.star.view.PaperOrientation.LANDSCAPE

Длинно, конечно... Зато однозначно.

Я обычно тестирую их прямо из бэйсика приблизительно так:

Код Выделить Развернуть

Sub TestConst
Print "com.sun.star.view.PaperOrientation.PORTRAIT = " & com.sun.star.view.PaperOrientation.PORTRAIT
Print "com.sun.star.view.PaperOrientation.LANDSCAPE = " & com.sun.star.view.PaperOrientation.LANDSCAPE
End Sub

[ishayahu]

При указании любого из параметров печатается все равно в книжной ориентации 

Код Выделить Развернуть


REM массив параметров для открытия документа
Dim DocProperties(0) as new com.sun.star.beans.PropertyValue
PrintProperties(0).Name = "Wait"
PrintProperties(0).Value = True
PrintProperties(1).Name = "PaperOrientation"
PrintProperties(1).Value = com.sun.star.view.PaperOrientation.LANDSCAPE
Doc.print(PrintProperties())

[вложение удалено Администратором]

[bormant]

А если
Dim DocProperties(1) as new com.sun.star.beans.PropertyValue
?

[ishayahu]

Я эту проблему уже решил, как точно - не помню, но могу поискать, если кому-нибудь надо.