Hi Ariel,
thanks big time!
I was able to get it to work with java. If you got this only from the API then
I should try to become friends with it again ;-)
best,
Fabian
On May 24, 2012, at 4:54 PM, Ariel Constenla-Haile wrote:
> Sub Main
> Dim oDoc as Object
> oDoc = ThisComponent
>
> Dim oDispatchProvider as Object
> Dim oDispatchHelper as Object
> oDispatchProvider = oDoc.getCurrentController().getFrame()
> oDispatchHelper = CreateUnoService("com.sun.star.frame.DispatchHelper")
>
> '===================================================================
> ' Document Settings
>
> 'com.sun.star.text.DocumentSettings
> 'com.sun.star.text.PrintSettings
> 'com.sun.star.text.PrintPreviewSettings
>
> Dim oDocumentSettings as Object
> oDocumentSettings = oDoc.createInstance("com.sun.star.document.Settings")
> oDocumentSettings.setPropertyValue("PrintEmptyPages", False)
>
>
> oDispatchHelper.executeDispatch(oDispatchProvider,".uno:Print","_self",0,oArguments)
> End Sub
