Je suis en train d’écrire un script qui entre autre envoi des données vers libre office, j'utilise pour ce faire l'UDF oOOcalc.au3 que l'on trouve sur le forum anglais et disponible sur le forum anglais
j'arrive sans soucis à l'utiliser (avec beaucoup d'essais quand même) mais je souhaiterai avoir la possibilité de piloter le mode de page (portait/paysage) avec ce dernier, mais cette fonction n'y est pas (ou je n'ai pas su la trouver).
Je me suis mis en tête d'essayer de la rajouter, mais après quelques heures de recherches et des morceaux du puzzle plus tard je n'arrive pas à tout imbriquer... pourriez vous m'aider :
Voilà ce que j'ai trouvé ---> ici :
Je ne sais pas si c'est facilement faisable, je vous mets un petit script de test que je réalise en parallèle de mon projet qui me sert à appeler scalc et y envoyer des données:Re: [Calc] Passer du format portrait en paysage
Messagepar Churay » 13 Fév 2012 15:26
Bonjour
Format Paysage :
Code : Tout sélectionner Agrandir
Dim oDocPrt(7)
oDocPrt = thisComponent.getPrinter
oDocPrt(1).Value = com.sun.star.view.PaperOrientation.LANDSCAPE
thisComponent.setPrinter(oDocPrt)
Le retour au format Portrait :
Code : Tout sélectionner Agrandir
oDocPrt(1).Value = com.sun.star.view.PaperOrientation.PORTRAIT
thisComponent.setPrinter(oDocPrt)
Pour info, l'Array qui récupère les Propriétés Printer est constitué de :
0 | com.sun.star.beans.PropertyValue --> Name
1 | com.sun.star.beans.PropertyValue --> PaperOrientation
2 | com.sun.star.beans.PropertyValue --> PaperFormat
3 | com.sun.star.beans.PropertyValue --> PaperSize
4 | com.sun.star.beans.PropertyValue --> IsBusy
5 | com.sun.star.beans.PropertyValue --> CanSetPaperOrientation
6 | com.sun.star.beans.PropertyValue --> CanSetPaperFormat
7 | com.sun.star.beans.PropertyValue --> CanSetPaperSize
cOOordialement
#include <string.au3>
#include <Array.au3>
#include <StringConstants.au3>
#include <OOoCalc.au3>
;------------------------------------------------
Global $aArray[100][4]
For $i = 0 To 99
$aArray[$i][0] = _StringRepeat(Chr(Random(65, 68, 1)), 5)
$aArray[$i][1] = _StringRepeat(Chr(Random(65, 77, 1)), 5)
$aArray[$i][2] = _StringRepeat(Chr(Random(65, 83, 1)), 5)
$aArray[$i][3] = _StringRepeat(Chr(Random(65, 90, 1)), 5)
Next
;_ArrayDisplay($aArray)
Global $oOcalc = _OOoCalc_BookNew()
$ofirstcell="A1"
$olastcell =__OOoCalc_CellRCToA1(UBound($aArray)-1,UBound($aArray,2)-1)
_OOoCalc_WriteFromArray($oOcalc,$aArray,$ofirstcell)
$sheetsname= _OOoCalc_SheetNameGet($oOcalc)
;ConsoleWrite($ofirstcell&':'&$olastcell)
_OOoCalc_CreateBorders($oOcalc,$ofirstcell&':'&$olastcell)
for $i = 0 to ubound($aArray)-1
for $j= 0 to ubound($aArray,2)-1
$scell= __OOoCalc_CellRCToA1($i,$j)
;_OOoCalc_CreateBorders($oOcalc,$scell)
if _OOoCalc_ReadCell($oOcalc,$scell)="AAAAA" then
;ConsoleWrite($scell & @CRLF)
_OOoCalc_CellSetColors($oOcalc,0x000000, 0x00FF00,"A"&$i+1&":"&"D"&$i+1)
EndIf
Next
Next
#include <Array.au3>
#include <StringConstants.au3>
#include <OOoCalc.au3>
;------------------------------------------------
Global $aArray[100][4]
For $i = 0 To 99
$aArray[$i][0] = _StringRepeat(Chr(Random(65, 68, 1)), 5)
$aArray[$i][1] = _StringRepeat(Chr(Random(65, 77, 1)), 5)
$aArray[$i][2] = _StringRepeat(Chr(Random(65, 83, 1)), 5)
$aArray[$i][3] = _StringRepeat(Chr(Random(65, 90, 1)), 5)
Next
;_ArrayDisplay($aArray)
Global $oOcalc = _OOoCalc_BookNew()
$ofirstcell="A1"
$olastcell =__OOoCalc_CellRCToA1(UBound($aArray)-1,UBound($aArray,2)-1)
_OOoCalc_WriteFromArray($oOcalc,$aArray,$ofirstcell)
$sheetsname= _OOoCalc_SheetNameGet($oOcalc)
;ConsoleWrite($ofirstcell&':'&$olastcell)
_OOoCalc_CreateBorders($oOcalc,$ofirstcell&':'&$olastcell)
for $i = 0 to ubound($aArray)-1
for $j= 0 to ubound($aArray,2)-1
$scell= __OOoCalc_CellRCToA1($i,$j)
;_OOoCalc_CreateBorders($oOcalc,$scell)
if _OOoCalc_ReadCell($oOcalc,$scell)="AAAAA" then
;ConsoleWrite($scell & @CRLF)
_OOoCalc_CellSetColors($oOcalc,0x000000, 0x00FF00,"A"&$i+1&":"&"D"&$i+1)
EndIf
Next
Next