impression codebar + prix a coter

Question

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 = FalseText1 "": Text2 "": Text3 = ""
Text3.SetFocus


je voudrais que mon prix vienne a coter de mon code bare si quelqu'un sait m'aider
Merci

gnieark · Answer

ben concatène les chaines de carcteres avec &

codebarre & "  " & prix

petiflamand · Answer

Sakut ,
sa ne marche pas aussi facilement que sa , si tu regarde le code , il faut
initialiser l'imprimante , donc avec
 MSComm1.Output = Chr(27) + Chr(33) + Chr(10) + Chr(29) + Chr(107) _
            + Chr(67) + Chr(12) + code 
sa imprime en code bar le nombre qui est dans code mais uniquement en codebar 
pour le texte il faut initialiser l'imprimante autrement
MSComm1.Output = Chr(27) + Chr(33) + Chr(41) + titre + Chr(10)

c'est une imprimante ticket  client 
Voila

le cancre · Answer

Salut, 
ton imprimante à ticket de caisse, elle prend en charge les images ?

petiflamand · Answer

normalement oui , mais je ne sait pas comment faire

le cancre · Answer

tu affiche ton code barre dans une picturebox, en mettant le prix à coté 
tu enregistre l'image et tu l'imprime, c'est la seule solution que j'ai trouver pour solutionner ton problème

petiflamand · Answer

oui merci mais je sait pas comment on fait pour envoyer une image en code escape.

Impression codebar + prix a coter

6 réponses

Votre réponse

Discussions similaires