[R] Pb avec fonction MDPF_UDF_FR
Posté : mer. 11 févr. 2015 12:31
par 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:
Merci par avance.
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
)