[R] Tableau type excel

[sscssc]

Bonjour, Je cherche à crée quatre tableaux de se style qui contiendrait a peu près 90 de cases :



et j’aimerai si possible l'imprimé une foi éditer.

suite à mes recherche non fructueuse concernent le tableau, j'ai pensé à utiliser une image pour les créé puis une variable array et une boucle for pour crée les cases.

j'ai pensé à utilisé cette *fonction capturé l'image de mes tableaux:
*_ScreenCapture_CaptureWnd
Puis d'utilisé paint pour imprimé.


mais le problème est que mes tableaux doit tenir sur une feuille format A4 et que l'image de dimension A4 (724x1024) celons la résolution de l’utilisateur dépasse largement de l’écran, donc la fonction ne capture pas tout mon tableau.
J'ai donc pensé à coupé mon image en quatre puis de les recollé les-une en dessous des-autres avants impression si cela est possible.

voila pour la petit histoire.

Mes solution sur se futur programme me parait horriblement barbare. :s
Une autre solution est-il possible pour crée mes tableau et les imprimé ?

Merci .

[GaRydelaMer]

Bonjour

Etant moi même confronté au même problème j'ai opté pour une solution assez simple à mettre en place.

J'ai utiliser un contrôle IE, la dedans je créer mes tableau en HTML et avec du CSS du aura le style comme tu veux, pour la partie impression c'est l'imprimante de ton choix et je dois dire que ça marche plutôt bien.

Je reste à ta disposition pour te donner du code. Ceci dit tu as les exemples dans la doc d'AutoIt regarde du coté des fonctions IE.

[PandiPanda]

Bonjour, ceci ?

► Afficher le texteécrire 2 array 1D

Code : Tout sélectionner

#include <Excel.au3>

Local $oExcel = _ExcelBookNew() ;Create new book, make it visible

Local $aPrenom[5] = ["PRENOM", "Jim", "Louis", "Paul", "Richard"]
Local $aArgent[5] = ["ARGENT","485.44","160.68","275.16","320.0"]
_ExcelWriteArray($oExcel, 1, 1, $aPrenom,1)
_ExcelWriteArray($oExcel, 1, 2, $aArgent,1)

MsgBox(0, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @ScriptDir & "\Test.xls", "xls", 0, 1)
_ExcelPrint($oExcel)

Func _ExcelPrint($oExcel)
    $xlDialogPrinterSetup = 9
    $hPrinter = $oExcel.Dialogs($xlDialogPrinterSetup).Show
    $oExcel.Visible=0
    $oExcel.ActiveWorkbook.PrintOut
    _ExcelBookClose($oExcel, 0, 0)
EndFunc

► Afficher le texteécrire array 2D

Code : Tout sélectionner

#include <Excel.au3>

Local $oExcel = _ExcelBookNew()
local $aRray[2][5] = [["PRENOM", "Jim", "Louis", "Paul", "Richard"],["ARGENT","485.44","160.68","275.16","320.0"]]
_ExcelWriteArray2D($oExcel,$aRray)
_ExcelBookSaveAs($oExcel, @ScriptDir & "\Test.xls", "xls", 0, 1)
;~ _ExcelPrint($oExcel)

Func _ExcelPrint($oExcel)
    $xlDialogPrinterSetup = 9
    $hPrinter = $oExcel.Dialogs($xlDialogPrinterSetup).Show
    $oExcel.Visible=0
    $oExcel.ActiveWorkbook.PrintOut
    _ExcelBookClose($oExcel, 0, 0)
EndFunc

Func _ExcelWriteArray2D($oExcel,$aArray)
    If IsArray($aArray) And UBound($aArray,0) = 2 Then
        Local $tmp = "",$cpt = 1
        For $i = 0 To UBound($aArray,1)-1
            For $j = 0 To UBound($aArray,2)-1
                $tmp&=$aArray[$i][$j]&"|"
            Next
            _ExcelWriteArray($oExcel,1,$cpt,StringSplit(StringTrimRight($tmp,1),"|",3),1)
            $tmp = ""
            $cpt += 1
        Next
    EndIf
EndFunc

[sscssc]

Merci GaRydelaMer et PandiPanda:D , pour quoi cherchez compliqué ^^

j'adopte la solution html car tout les pc ne dispose pas forcement excel et l'udf IE repond a tout les question.

encore merci =)