Page 1 sur 1

Creation d'une App Badge temporaire

Posté : mer. 25 mai 2016 17:12
par africanism
Bonjour j'essait de cree Un form pour pouvoir imprimer des badges temporaires.
je me suis dit que j'allais passer par word mais la suis perdu .

Avez vous des idee ?
voici le code.

Code : Tout sélectionner

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <MsgBoxConstants.au3>
#include <Word.au3>
#include <WordConstants.au3>
#include <FileConstants.au3>
Local $objWord = _Word_Create()
#Region ### START Koda GUI section ### Form=C:\Users\CardeiraD\Pictures\BadgeMAF.kxf
Global $Form1_1 = GUICreate("AGO Badge", 482, 262, 566, 483)
GUISetBkColor(0xFFFFFF)
Global $Nom = GUICtrlCreateInput("Nom", 136, 152, 209, 21)
Global $Prenom = GUICtrlCreateInput("Prenom", 136, 184, 209, 21)
Global $Print = GUICtrlCreateButton("Print", 78, 227, 129, 25)
Global $Reset = GUICtrlCreateButton("Reset", 262, 227, 129, 25)
Global $Pic1 = GUICtrlCreatePic("*.jpg", 76, 32, 457, 81)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
 $nMsg = GUIGetMsg()
 Switch $nMsg
  Case $GUI_EVENT_CLOSE
   Exit

	 case $Print
		 if $Print Then
		 $oWordApp = _Word_Create (@TempDir & "c:\prive\autoit\badge.doc",0)

            $oDoc = _Word_DocGet ($oWordApp, 0)
            _Word_DocFindReplace($oDoc, "Nom", GUICtrlRead($Nom),$wdreplaceone)
            _Word_DocFindReplace($oDoc, "Prenom", GUICtrlRead($Prenom),$wdreplaceone)
             _Word_DocSaveAs($oDoc, @TempDir & "c:\prive\autoit\Facture\ " & GUICtrlRead($Nom) & ".doc")
            _Word_Quit ($oWordApp, 0)
			Exit
			EndIf


 EndSwitch
WEnd

Re: Creation d'une App Badge temporaire

Posté : mer. 25 mai 2016 22:09
par blacksoul305
Bonsoir,

franchement je n'ai jamais utilisé AutoIt pour automatiser des traitements sur les documents Word. Cela dit, je pense qu'il y a une erreur, un bref coup d'oeil sur la doc de la fonction _Word_Create montre qu'elle accepte deux arguments qui sont tous deux booléens. Je comprends pourquoi ça ne marche pas quand on lui donne un chemin vers un fichier.

Vous devriez regarder la documentation des fonctions _Word... pour continuer le programme, bon courage !

Re: Creation d'une App Badge temporaire

Posté : sam. 28 mai 2016 12:05
par mimione
bonjour
Je me suis simplifié la vie en créant directement des PDF avec l'UDF trouvé ici:
https://www.autoitscript.com/forum/topi ... plication/
Une fois le PDF créé, un petit coup de "Sumatra PDF" (léger, portable) en ligne de commande pour imprimer, et hop.

Attention: il existe plusieurs versions de l'UDF "MPDF", certaines avec les caractères accentués, d'autres non.
Celle ci (PJ) a les caractères accentués, plus une possibilité d'insérer des codes-barre (code 128), mais qui est un peu à côté de la plaque.
La police "code-barres" avait été ajoutée par un membre du forum FR (pardon à lui, je ne me rappelle plus de son nom), mais les UDF de génération des codes 128, et surtout les polices de caractères trouvées ici ou là ne sont pas irréprochables (et pour tout dire un peu foireux!).
Il vaut mieux tracer les codes-barre avec un UDF graphique (dispo si besoin).
M.C.