[R] Pb avec fonction MDPF_UDF_FR

[Hugues]

Bonjour,

Je génère un fichier PDF avec l'UDF MDPF_UDF_FR.

Mon fichier PDF généré ne doit faire qu'une seule page (A4 portrait).

Lorsque je génère une première page pas de soucis, mais lorsque je génère une autre page j'en ai 2, et ainsi de suite (pas de page complète, mais un petit carré blanc placé).

Est-ce que quelqu'un a déjà eu le problème?

Ci-joint mon code:

► Afficher le texte

Code : Tout sélectionner

Func _CreatePDF($Input11, $i_Demandeur2, $SelectedValuehListView)

    $Date = StringRegExpReplace(_Now(), '(\d{2})/(\d{2})/(\d{4}) (\d{2}):(\d{2}):(\d{2})', '$1$2$3$4$5$6')

    _SetTitle("Demande de réparation: " & GUICtrlRead($c_TypeOfProcess) & " - " & GUICtrlRead($c_OutilRetire))
    ;_SetSubject("Demo PDF in AutoIt, without any ActiveX or DLL...")
    ;_SetKeywords("pdf, demo, AutoIt")
    _OpenAfter(True)
    _SetUnit($PDF_UNIT_CM)
    _SetPaperSize("A4"); A4 landscape
    _SetZoomMode($PDF_ZOOM_CUSTOM, 100)
    _SetOrientation($PDF_ORIENTATION_LANDSCAPE)
    _SetLayoutMode($PDF_LAYOUT_CONTINOUS)
    _InitPDF(@ScriptDir & "\pdf\" & GUICtrlRead($c_TypeOfProcess) & " - " & GUICtrlRead($c_OutilRetire) & "_" & $Date & ".pdf")
    _LoadFontTT("_Arial", $PDF_FONT_ARIAL)
    _LoadResImage("LogoBOSCH", @ScriptDir & "\Config\Bosch_logo_slogan_FR.jpg")

    $iPgW = Round(_GetPageWidth() / _GetUnit(), 1) ;Largeur feuille en cm
    $iPgH = Round(_GetPageHeight() / _GetUnit(), 1);Hauteur feuille en cm

    _BeginPage()
        $Margin = 0.5

        _Draw_Rectangle($Margin, 27, $iPgW - ($Margin * 2), 1, $PDF_STYLE_STROKED, 0, 0x919695, 0)
        _SetColourFill(0xFFFFFFF);_SetColourFill(0xFFFFFF)
        _DrawText(2, 27.35, GUICtrlRead($c_TypeOfProcess) & " - " & GUICtrlRead($c_OutilRetire), "_Arial", 16, $PDF_ALIGN_LEFT, 0)

        _SetColourFill(0x000000)
        _Draw_Rectangle($Margin, 25, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
        _DrawText(2.5, 25.25, "Ligne:", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
        _Draw_Rectangle(5, 24.65, 5, 1, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
        _DrawText(5.5, 25, GUICtrlRead($l_Line), "_Arial", 11, $PDF_ALIGN_LEFT, 0)


        _Draw_Rectangle($Margin, 23.4, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
        _DrawText(2.5, 23.65, "Station:", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
        _Draw_Rectangle(5, 23.05, 8, 1, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
        _DrawText(5.5, 23.45, GUICtrlRead($c_Station), "_Arial", 11, $PDF_ALIGN_LEFT, 0)

        _Draw_Rectangle($Margin, 21.8, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
        _DrawText(2.5, 22.05, "Date:", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
        _Draw_Rectangle(5, 21.45, 8, 1, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
        _DrawText(5.5, 21.85, _Now(), "_Arial", 11, $PDF_ALIGN_LEFT, 0)

        _Draw_Rectangle($Margin, 20.2, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
        _DrawText(2.5, 20.45, "Demandeur:", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
        _Draw_Rectangle(5, 19.45, 8, 1, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
        _DrawText(5.5, 19.85, $i_Demandeur2, "_Arial", 11, $PDF_ALIGN_LEFT, 0)

        _Draw_Rectangle($Margin, 18.25, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
        _DrawText(2.5, 18.50, "Défaut(s) affiché(s):", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
        _Draw_Rectangle(5, 14.4, $iPgW - ($Margin * 2) - 5, 4, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
        $sText = $SelectedValuehListView
        _Paragraph($sText, 5.5, 18, 14, "_Arial", 10, 0)

        _Draw_Rectangle($Margin, 13.2, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
        _DrawText(2.5, 13.45, "Commentaire(s): ", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
        _Draw_Rectangle(5, 10.35, $iPgW - ($Margin * 2) - 5, 3, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
        $sText = GUICtrlRead($Input1)
        _Paragraph($sText, 5.5, 12.65, 14, "_Arial", 10, 0)

    _EndPage()

    _ClosePDFFile()

EndFunc   ;==>_CreatePDF

 

Merci par avance.

[walkson]

Bonjour,
En effet le script ne décharge pas ses variables qui se cumulent.
J'ai essayé avec Global $_Buffer = " " (valeur écrite à la fin avec _ClosePDFFile()) mais j'obtiens toujours un pdf à 2 pages avec le même poids qu'un pdf d'une page (sinon le poids double)
Pas trouvé de solution...
Petite remarque: ça serait bien d'avoir un code utilisable sans être obliger de le modifier (ex: GUICtrlRead($c_TypeOfProcess) sans avoir la GUI )

Edit: l'include est ici http://autoitscript.fr/forum/viewtopic. ... 064#p91288

[walkson]

En parcourant le forum us, j'ai trouvé la solution

► Afficher le texte

Code : Tout sélectionner

#include <Date.au3>
#include "MPDF_UDF_FR1.au3"
    For $i = 1 To 4
    _CreatePDF("aaa", "bbb", "ccc",$i) ;$i pour différencier les noms des pdf

    Next
    Func _CreatePDF($Input11, $i_Demandeur2, $SelectedValuehListView,$i)
;Global $_Buffer = " "
        $Date = StringRegExpReplace(_Now(), '(\d{2})/(\d{2})/(\d{4}) (\d{2}):(\d{2}):(\d{2})', '$1$2$3$4$5$6')

        _SetTitle("Demande de réparation: " & $i )
        _SetSubject("Demo PDF in AutoIt, without any ActiveX or DLL..." & $i )
        ;_SetKeywords("pdf, demo, AutoIt")
        _OpenAfter(False)
        _SetUnit($PDF_UNIT_CM)
        _SetPaperSize("A4"); A4 landscape
        _SetZoomMode($PDF_ZOOM_CUSTOM, 100)
        _SetOrientation($PDF_ORIENTATION_LANDSCAPE)
        _SetLayoutMode($PDF_LAYOUT_CONTINOUS)
        _InitPDF(@ScriptDir & "\TEST" & $i & ".pdf")
        _LoadFontTT("_Arial", $PDF_FONT_ARIAL)

        $iPgW = Round(_GetPageWidth() / _GetUnit(), 1) ;Largeur feuille en cm
        $iPgH = Round(_GetPageHeight() / _GetUnit(), 1);Hauteur feuille en cm

        _BeginPage()
            $Margin = 0.5

            _Draw_Rectangle($Margin, 27, $iPgW - ($Margin * 2), 1, $PDF_STYLE_STROKED, 0, 0x919695, 0)
            _SetColourFill(0xFFFFFFF);_SetColourFill(0xFFFFFF)
            _DrawText(2, 27.35, "outil", "_Arial", 16, $PDF_ALIGN_LEFT, 0)

            _SetColourFill(0x000000)
            _Draw_Rectangle($Margin, 25, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
            _DrawText(2.5, 25.25, "Ligne:", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
            _Draw_Rectangle(5, 24.65, 5, 1, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
            _DrawText(5.5, 25, "line", "_Arial", 11, $PDF_ALIGN_LEFT, 0)


            _Draw_Rectangle($Margin, 23.4, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
            _DrawText(2.5, 23.65, "Station:", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
            _Draw_Rectangle(5, 23.05, 8, 1, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
            _DrawText(5.5, 23.45, "station", "_Arial", 11, $PDF_ALIGN_LEFT, 0)

            _Draw_Rectangle($Margin, 21.8, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
            _DrawText(2.5, 22.05, "Date:", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
            _Draw_Rectangle(5, 21.45, 8, 1, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
            _DrawText(5.5, 21.85, _Now(), "_Arial", 11, $PDF_ALIGN_LEFT, 0)

            _Draw_Rectangle($Margin, 20.2, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
            _DrawText(2.5, 20.45, "Demandeur:", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
            _Draw_Rectangle(5, 19.45, 8, 1, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
            _DrawText(5.5, 19.85, $i_Demandeur2, "_Arial", 11, $PDF_ALIGN_LEFT, 0)

            _Draw_Rectangle($Margin, 18.25, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
            _DrawText(2.5, 18.50, "Défaut(s) affiché(s):", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
            _Draw_Rectangle(5, 14.4, $iPgW - ($Margin * 2) - 5, 4, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
            $sText = $SelectedValuehListView
            _Paragraph($sText, 5.5, 18, 14, "_Arial", 10, 0)

            _Draw_Rectangle($Margin, 13.2, $iPgW - ($Margin * 2), 0.75, $PDF_STYLE_STROKED, 0, 0xCDD5D4, 0)
            _DrawText(2.5, 13.45, "Commentaire(s): ", "_Arial", 12, $PDF_ALIGN_LEFT, 0)
            _Draw_Rectangle(5, 10.35, $iPgW - ($Margin * 2) - 5, 3, $PDF_STYLE_STROKED, 0.1, 0xcafea0, 0.01)
            $sText = "input"
            _Paragraph($sText, 5.5, 12.65, 14, "_Arial", 10, 0)

        _EndPage()

        _ClosePDFFile()

    EndFunc   ;==>_CreatePDF

 

L'ensemble des variables est vidé à la fin de _ClosePDFFile()

[Hugues]

Merci beaucoup.

Sujet résolu.