Kleiner Nachtrag:

SUB Seitenuebersicht
        DIM oDocument AS OBJECT, oDispatcher AS OBJECT
        oDocument = ThisComponent.CurrentController.Frame
        oDispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
        DIM Array(0) AS NEW com.sun.star.beans.PropertyValue
        Array(0).Name = "MultiplePagesPerRow"
        Array(0).Value = false
oDispatcher.executeDispatch(oDocument, ".uno:MultiplePagesPerRow", "", 0,Array())
        DIM Array1(0) AS NEW com.sun.star.beans.PropertyValue
        Array1(0).Name = "Zoom.Value"
        Array1(0).Value = 40
        oDispatcher.executeDispatch(oDocument, ".uno:Zoom", "", 0, Array1())
END SUB

Merkwürdig: Der Wert für "MultiplePagesPerRow muss auf False stehen, damit die angezeigt werden…

Gruß

Robert
--
Homepage: https://www.familiegrosskopf.de/robert

--
Liste abmelden mit E-Mail an: [email protected]
Probleme? 
https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/discuss/
Datenschutzerklärung: https://www.documentfoundation.org/privacy

Antwort per Email an