Re: [dev-it] Macro che stampa più copie di quele impostate

Mon, 05 May 2008 09:53:00 -0700 

In attesa che venga risolto il bug sono dovuto ricorrere
ai dispatcher, con questi non da problemi
Questa è la subrutine

Sub Prova
        Dim oDoc As Object
        Dim dispatcher As Object
        
        oDoc = ThisComponent.CurrentController.Frame
        dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
        
        Dim args1(0) as new com.sun.star.beans.PropertyValue
        args1(0).Name = "PrintArea"
        args1(0).Value = "$A$1:$G$37"

        dispatcher.executeDispatch(oDoc, ".uno:ChangePrintArea", "", 0, args1())

        Dim args2(1) as new com.sun.star.beans.PropertyValue
        args2(0).Name = "Copies"
        args2(0).Value = 2
        args2(1).Name = "Collate"
        args2(1).Value = true

        dispatcher.executeDispatch(oDoc, ".uno:Print", "", 0, args2())
        dispatcher.executeDispatch(oDoc, ".uno:DeletePrintArea", "", 0, Array())

End Sub

Paolo non storcere il naso :-)

Ciao
lido

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Rispondere a