j aimerai reussir a faire imprimer sur cette machine depuis mon appli windev
j ai trouver ca mais il me dis que je n est pas installer le dymo help please
je suis sous windev 7.5
code :
EXTERN TEKST1 EXTERN TEKST2 EXTERN TEKST3 EXTERN TEKST4 EXTERN TEKST5 EXTERN TEKST6 EXTERN TEKST7 EXTERN TEKST8 EXTERN TEKST9
DymoAddIn, DymoLabels is object OLE dynamic LabelFile is string q is Variant FileID is int ReadRes, s_tekst is string
DymoAddIn = GetActiveObject("DYMO.DymoAddIn") DymoLabels = GetActiveObject("DYMO.DymoLabels") IF DymoAddIn = Null THEN DymoAddIn = new object automation "DYMO.DymoAddIn" END IF DymoLabels = Null THEN DymoLabels = new object automation "DYMO.DymoLabels" END
LabelFile = "C:\Program Files\DYMO Label\Label Files\SL-Bakery.LWL"
DymoAddIn>>open(LabelFile) FileID = fOpen("C:\SAPP\TEMP\Etiket.txt", foReadWrite) IF FileID <> -1 THEN LOOP ReadRes = fReadLine(FileID) IF ReadRes = EOT OR ReadRes = "" THEN BREAK s_tekst = ExtractString(ReadRes,1,";") s_tekst = ExtractString(ReadRes,2,";") s_tekst = ExtractString(ReadRes,3,";") s_tekst = ExtractString(ReadRes,4,";") s_tekst = ExtractString(ReadRes,5,";")
DymoLabels>>SetField("TEKST1", ExtractString(ReadRes,1,";")) DymoLabels>>SetField("TEKST2", ExtractString(ReadRes,2,";")) DymoLabels>>SetField("TEKST3", ExtractString(ReadRes,3,";")) DymoLabels>>SetField("TEKST4", ExtractString(ReadRes,4,";")) DymoLabels>>SetField("TEKST5", ExtractString(ReadRes,5,";")) DymoLabels>>SetField("TEKST6", ExtractString(ReadRes,8,";")) DymoLabels>>SetField("TEKST7", ExtractString(ReadRes,10,";")) DymoLabels>>SetField("TEKST8", ExtractString(ReadRes,7,";")) DymoLabels>>SetField("TEKST9", ExtractString(ReadRes,11,";")) q = DymoAddIn>>Print(1,True) END END |