begin process at 2012 02 15 14:13:17
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Visual Basic 6

 > 

Divers

 > 

Débutants

 > 

impression codebar + prix a coter


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

impression codebar + prix a coter

mercredi 6 décembre 2006 à 20:33:21 | impression codebar + prix a coter

petiflamand

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

mercredi 6 décembre 2006 à 22:09:09 | Re : impression codebar + prix a coter

gnieark

Membre Club
ben concatène les chaines de carcteres avec &

codebarre & "  " & prix
mercredi 6 décembre 2006 à 22:13:37 | Re : impression codebar + prix a coter

petiflamand

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
jeudi 7 décembre 2006 à 12:38:37 | Re : impression codebar + prix a coter

Le cancre

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

jeudi 7 décembre 2006 à 19:27:14 | Re : impression codebar + prix a coter

petiflamand

normalement oui , mais je ne sait pas comment faire
jeudi 7 décembre 2006 à 23:44:08 | Re : impression codebar + prix a coter

Le cancre

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

vendredi 8 décembre 2006 à 07:04:35 | Re : impression codebar + prix a coter

petiflamand

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


Cette discussion est classée dans : code, output, prix, mscomm1, chr


Répondre à ce message

Sujets en rapport avec ce message

mscomm output [ par danebasis ] bonjour a tous, mon  probleme est que je doi envoyer a l'endroit indiquer deux informations l'une est la position du HScroll1 (valeur decimal de 0 a 2 Utiliser une carte relai USB [ par DiabloduNord ] Bonjour, Je cherche de l'aide car j'ai acheter depuis peu une carte comportant 8 relais et pour faire fonctionner ces derniers il faut brancher la ca deboguage vba [ par jojodid ] j'utilse une base de donnée access sur la qelle un de mes formulaire refuse de faire la mise à jour des modificationd effectuées sur les données. Apré Problème d'envoi d'sms. [ par zakaria616 ] Bonjour tout le monde, j'utilise un modem gsm pour envoyer les sms. Je dois envoyer l'ensemble des message contenu dans ma MSFlexGrid(2 colonnes : Num RS232 [ par rescator68 ] Bonjour, j'expose mon problème qui doit être simple, mais je ne trouve pas moi-même. j'ai un automate qui envoie au fil de l'eau des infos sur un p Where + Date [ par SPEEDERMENN ] Bonjour,j'ai un problème que je n'arrive pas à résoudre, d'où ma question.Je suis en Vb 2005.net et j'ai une base donnée sous sql serveur express 2005 Pilotage port serie sous VB6 probleme [ par alnubis ] bonjour,voila mon probleme, je dois piloter un generateur de fonction via le port serie(rs232).je connais les commandes a envoyer à ce generateur et t A L'AIDEEE!!! CONVERSION VBScript >>> VB ( ~~c vital sioux plééé ~~) [ par pekinio ] Voila, hello a tlm.bon, en fait, c'est a propos du code "generateur de mots"(dans la categorie VB.NET!!!?), sur ce site.je trouve ce code interressant remplacer = par son code chr() [ par autocad53 ] bonjours, je souhaite dans mon code reconaitre le caractère "=" pour traiter mes stringle soucis, c'est qu'en VBA, = à une signification particulière. Comment avoir un seul champ sur Hyperterminal avec MSComm1.Output [ par basamir ] bonjour,j'écris sur un port com avec la commande suivante:MSComm1.Output = Text5.Textquand j'ouvre hyperterminal, je vois que les valeurs reçues s'écr


Nos sponsors


Sondage...

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 1,295 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales