OpenOffice.info

oModelOfForm = ThisDatabaseDocument.currentcontroller.model.formDocuments.getByName("Dummy")
with oModelOfForm
   .openDesign
   .close
end with

Falls es jemand braucht:

Das Umstellen von Druckansicht auf Webansicht funktioniert "nur" wenn das Formular im Bearbeitungsmodus geöffnet wird. KA was dabei umgestellt wird, jedenfalls bleibt die Info, dass es für Base-Formulare einen Webmodus gibt bis zum Ende der Sitzung erhalten, d.h. jedes Formular das nachher geöffnet wird wird automatisch den Web-Modus verwenden.

Vorgehen also:

1. Dummy Formular erstellen.
2. Der Eigenschaft "Ansicht wurde erzeugt" des Dummy Formulars das Makro von F3K zuordnen.
3. beim Start der Datenbank folgenden Code ausführen:
[code]
oModelOfForm = ThisDatabaseDocument.currentcontroller.model.formDocuments.getByName("Dummy")
with oModelOfForm
.openDesign
.close
end with
[/code]

Hallo,

hier mein Tipp zum Thema Fenster (öffnen schliessen Größe speichern usw.)
Auf dieser Seite von Günther Schardinger findet man einiges an sehr guter Hilfe und Ideen

http://members.aon.at/schardinger/openoffice/beispiele.html
Beispiel 02

Gruß
ddraht

sub S_change_to_Weblayout
dim document   as object
dim dispatcher as object
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BrowseView"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:BrowseView", "", 0, args1())
end sub

Hallo,
als Workaround habe ich jedem Formular unter dem Ereignis "Ansicht wurde erzeugt" dieses Makro zugeordnet, dann wird das Formular auch unter LO im Weblayout geöffnet:

[code]sub S_change_to_Weblayout
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "BrowseView"
args1(0).Value = true
dispatcher.executeDispatch(document, ".uno:BrowseView", "", 0, args1())
end sub[/code]

Gruß R

[quote="Cliss"]Ich glaube eig. nicht, dass es an den Versionsunterschieden liegt.[/quote]
Aber [u]genau[/u] daran liegt es.