Ich habe deinen Code mal unter Ubuntu 9.04 mit OOo 3.0.1 ausprobiert und das Ergebnis des PDF-Exports mit Adobe Reader 9.1.3 betrachtet. Auch mir war es so nicht möglich, über dein Macro zwischen PDF und PDF/A umzuschalten. Also habe ich im Macro eine Zeile ein wenig umgeschrieben:toni007 hat geschrieben:Oder stimmt mit meinem Code etwas nicht?
Code: Alles auswählen
...
' myProps(1).Value = Array(Array("SelectPdfVersion",0,1,com.sun.star.beans.PropertyState.DIRECT_VALUE)) ' 0,0 wäre normales PDF, 0,1 wäre PDF/A
Dim myFilterData(1) as New com.sun.star.beans.PropertyValue
myFilterData(0).Name = "SelectPdfVersion"
myFilterData(0).value = 1
myProps(1).Value = myFilterData
...