Laurent Godard a écrit :
Re
makeRectangle --> tu as redefini cette fonction ?
Bon, c'est fait. J'avance péniblement. Maintenant je bute ici :
uno.invoke(oDoc, "print", (Array(makePropertyValue( "CopyCount", 2),
makePropertyValue( "Pages", "1-4;10"),)) )
J'ai trouvé cette fonction toute faite :
Function MakePropertyValue(cName, uValue) As Object
Dim oPropertyValue As Object
Dim oSM As Object
Set oSM = CreateObject("com.sun.star.ServiceManager")
Set oPropertyValue =
oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
oPropertyValue.Name = cName
oPropertyValue.Value = uValue
Set MakePropertyValue = oPropertyValue
End Function
Et bien entendu, je plante
Si je remplace :
Set oPropertyValue =
oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
par :
Set oPropertyValue = com.sun.star.beans.PropertyValue
ça passe (apparemment) mais ça casse juste après avec :
oPropertyValue.Name = cName
C'est grave, docteur ?
Bon surf
Christian
--
Visitez http://christianwtd.free.fr/ pour débuter avec Calc, d'OpenOffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]