voici mon code
MSComm1.PortOpen = True
On Error Resume Next
titre = Text1
If Text2 <> "" Then
prix = Text2 'Text2 + " F / " + Format((Text2 / 6.55957), "0.00") + " " + Chr(27) + Chr(116) + Chr(19) + Chr(213)
End If
code = Text3
MSComm1.Output = Chr(27) + Chr(97) + Chr(1) + Chr(29) + Chr(104) _
+ Chr(100) + Chr(29) + Chr(72) + Chr(2) + Chr(29) + Chr(119) + Chr(3) _
+ Chr(29) + Chr(104) + Chr(60)
MSComm1.Output = Chr(27) + Chr(97) + Chr(1)
MSComm1.Output = Chr(27) + Chr(33) + Chr(41) + titre + Chr(10)
MSComm1.Output = Chr(27) + Chr(33) + Chr(8) + Format(prix, "###0.00") & " Eur" + Chr(10)'ici c'est mon prix
'impression d'un code barre
If Len(Text3) = 13 Then
MSComm1.Output = Chr(27) + Chr(33) + Chr(10) + Chr(29) + Chr(107) _
+ Chr(67) + Chr(12) + code ' ici c'est mon codebar
MSComm1.Output = Chr(29) + Chr(12)
MSComm1.Output = Chr(12)
End If
If Len(Text3) = 8 Then
MSComm1.Output = Chr(29) + Chr(104) + Chr(63) ' Hauteur du code barre en dots
MSComm1.Output = Chr(29) + Chr(107) + Chr(3) + code + Chr(0) ' Code Barre
End If
MSComm1.Output = Chr(27) + Chr(64)
MSComm1.Output = Chr(10) + Chr(10) + Chr(10) + Chr(10)
MSComm1.Output = Chr(27) + Chr(105)
MSComm1.PortOpen = False
Text1 = "": Text2 = "": Text3 = ""
Text3.SetFocus
je voudrais que mon prix vienne a coter de mon code bare si quelqu'un sait m'aider
Merci