Seitenansicht innerhalb eines Makros aufrufen

[Dolon]

Hallo,

weiß jemand, wie man innerhalb eines Makros in die Seitenansicht eines Calc-Dokuments wechseln kann?

Danke und viele Grüße
Dolon

[bst]

Hi Dolon,

nimm Extras->Makros->Makro aufzeichnen oder google mal nach "openoffice basic print preview"

cu, Bernd
--

Code: Alles auswählen

Sub Main
	dim document   as object
	dim dispatcher as object

	document   = ThisComponent.CurrentController.Frame
	dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

	dispatcher.executeDispatch(document, ".uno:PrintPreview", "", 0, Array())
End Sub

[Dolon]

Hallo Bernd,

ich habe die Zeilen unverändert in mein Makro aufgenommen. Es passiert nichts. Keine Seitenansicht und keine Fehlermeldung. Hast du da eine Idee?

Viele Grüße
Dolon

[bst]

Hallo Dolon,

nein. Füge mal den Code in ein eigenes Modul Deiner Mappe ein und starte das interaktiv via ALT+F11 Ausführen. Funktioniert das dann?

Hier bei mir (Win XP und LO 3.5.4.2) geht das.

cu, Bernd

[Dolon]

Hallo Bernd,

das geht!

Jedoch passierte beim Aufruf dieser Unterfunktion in meinem Makro wieder nichts. Je nachdem, wo der Aufruf in meinem Makro platziert war, funktionierte es manchmal und manchmal nicht. Leider nicht reproduzierbar. Jetzt geht es plötzlich wieder und scheint sogar (vorerst) stabil zu sein.

Ich betrachte das Problem also als gelöst.

Besten Dank!
Dolon