I want to open my forms in full screen without menu bars, tool, I only see the form and the blue bar at the top where there is the x to close the window.
I found this macro but on a form of trial work, while on my no. The macro must be associated with the event "loading" of the form.
Code: Select all
Sub FullSreen(Event As Object)
Dim oFrame As Object
Dim oDispatchHelper
oFrame=Event.Source.Parent.Parent.CurrentController.Frame
oDispatchHelper=CreateUnoService("com.sun.star.frame.DispatchHelper")
oDispatchHelper.ExecuteDispatch(oFrame,".uno:FullScreen","",0,Array())
End Subthanks