Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Piloter une imprimante ARGOX

Piloter une imprimante ARGOX

3 réponses
Avatar
Daniel AUBRY
Bonjour à tous,

je dois faire des étiquettes avec une imprimante ARGOX
qui se pilote pat le port COM.
La doc fournie est en anglais (beurk !!) sans exemples VB.
J'ai déjà piloté une TEK et je m'en suis inspiré mais cela ne fonctionne
pas.
A tout hasard ci-dessous un petit bout de soft.

Dany

Private Sub Form_Load()
Dim Texte(7)

PortCom.Settings = "9600,N,8,1"
PortCom.CommPort = 1
PortCom.InputLen = 0
PortCom.OutBufferSize = 2048
PortCom.PortOpen = True
End Sub

Private Sub TestImp_Click()
Texte(1) = "{02}L{0D}"
Texte(2) = "H14{0D}"
Texte(3) = "D11{0D}"
Texte(4) = "131100000400055ESSAI{0D}"
Texte(5) = "1A5202000050040ESSAI{0D}"
Texte(6) = "Q0001"
Texte(7) = "E"

For i = 1 To 7
PortCom.Output = Texte(i)
Next

PortCom.PortOpen = False
End Sub
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Fred
Dans son message 42aaf11d$0$10558$
Daniel AUBRY nous dit :

Bonjour à tous,

je dois faire des étiquettes avec une imprimante ARGOX
qui se pilote pat le port COM.
La doc fournie est en anglais (beurk !!) sans exemples VB.
J'ai déjà piloté une TEK et je m'en suis inspiré mais cela ne
fonctionne pas.
A tout hasard ci-dessous un petit bout de soft.

Dany

Private Sub Form_Load()
Dim Texte(7)

PortCom.Settings = "9600,N,8,1"
PortCom.CommPort = 1
PortCom.InputLen = 0
PortCom.OutBufferSize = 2048
PortCom.PortOpen = True
End Sub

Private Sub TestImp_Click()
Texte(1) = "{02}L{0D}"
Texte(2) = "H14{0D}"
Texte(3) = "D11{0D}"
Texte(4) = "131100000400055ESSAI{0D}"
Texte(5) = "1A5202000050040ESSAI{0D}"
Texte(6) = "Q0001"
Texte(7) = "E"

For i = 1 To 7
PortCom.Output = Texte(i)
Next

PortCom.PortOpen = False
End Sub



Bonjour,
A mon avis tu interprètes mal la documentation.
Quand tu as un code hexa entre accolades, je suppose que cela signifie
qu'il faut envoyer Chr(&Hcode).
Ainsi
Texte(1) = Chr(&H02) & "L" &Chr(&H0D)
Texte(2) = "H14" & Chr(&H0D)
Texte(3) = "D11" & Chr(&H0D)
Texte(4) = "131100000400055ESSAI" & Chr(&H0D)
Texte(5) = "1A5202000050040ESSAI" & Chr(&H0D)
Texte(6) = "Q0001"
Texte(7) = "E"
Au passage, 0D est le code du caractère CR (carriage return - retour
curseur)


--
Fred
Avatar
Fred
Dans son message
Fred nous dit :

Dans son message 42aaf11d$0$10558$
Daniel AUBRY nous dit :

Bonjour à tous,

je dois faire des étiquettes avec une imprimante ARGOX
qui se pilote pat le port COM.
La doc fournie est en anglais (beurk !!) sans exemples VB.
J'ai déjà piloté une TEK et je m'en suis inspiré mais cela ne
fonctionne pas.
A tout hasard ci-dessous un petit bout de soft.

Dany

Private Sub Form_Load()
Dim Texte(7)

PortCom.Settings = "9600,N,8,1"
PortCom.CommPort = 1
PortCom.InputLen = 0
PortCom.OutBufferSize = 2048
PortCom.PortOpen = True
End Sub

Private Sub TestImp_Click()
Texte(1) = "{02}L{0D}"
Texte(2) = "H14{0D}"
Texte(3) = "D11{0D}"
Texte(4) = "131100000400055ESSAI{0D}"
Texte(5) = "1A5202000050040ESSAI{0D}"
Texte(6) = "Q0001"
Texte(7) = "E"

For i = 1 To 7
PortCom.Output = Texte(i)
Next

PortCom.PortOpen = False
End Sub



Bonjour,
A mon avis tu interprètes mal la documentation.
Quand tu as un code hexa entre accolades, je suppose que cela signifie
qu'il faut envoyer Chr(&Hcode).
Ainsi
Texte(1) = Chr(&H02) & "L" &Chr(&H0D)
Texte(2) = "H14" & Chr(&H0D)
Texte(3) = "D11" & Chr(&H0D)
Texte(4) = "131100000400055ESSAI" & Chr(&H0D)
Texte(5) = "1A5202000050040ESSAI" & Chr(&H0D)
Texte(6) = "Q0001"
Texte(7) = "E"
Au passage, 0D est le code du caractère CR (carriage return - retour
curseur)



Autre chose,
Ne ferme pas ton port aussi vite. Tout n'est pas encore parti.

--
Fred
Avatar
Daniel AUBRY
Génial, ça marche au poil.

Mille merci,

Dany

"Fred" a écrit dans le message de news:
OQO4$
Dans son message
Fred nous dit :

Dans son message 42aaf11d$0$10558$
Daniel AUBRY nous dit :

Bonjour à tous,

je dois faire des étiquettes avec une imprimante ARGOX
qui se pilote pat le port COM.
La doc fournie est en anglais (beurk !!) sans exemples VB.
J'ai déjà piloté une TEK et je m'en suis inspiré mais cela ne
fonctionne pas.
A tout hasard ci-dessous un petit bout de soft.

Dany

Private Sub Form_Load()
Dim Texte(7)

PortCom.Settings = "9600,N,8,1"
PortCom.CommPort = 1
PortCom.InputLen = 0
PortCom.OutBufferSize = 2048
PortCom.PortOpen = True
End Sub

Private Sub TestImp_Click()
Texte(1) = "{02}L{0D}"
Texte(2) = "H14{0D}"
Texte(3) = "D11{0D}"
Texte(4) = "131100000400055ESSAI{0D}"
Texte(5) = "1A5202000050040ESSAI{0D}"
Texte(6) = "Q0001"
Texte(7) = "E"

For i = 1 To 7
PortCom.Output = Texte(i)
Next

PortCom.PortOpen = False
End Sub



Bonjour,
A mon avis tu interprètes mal la documentation.
Quand tu as un code hexa entre accolades, je suppose que cela signifie
qu'il faut envoyer Chr(&Hcode).
Ainsi
Texte(1) = Chr(&H02) & "L" &Chr(&H0D)
Texte(2) = "H14" & Chr(&H0D)
Texte(3) = "D11" & Chr(&H0D)
Texte(4) = "131100000400055ESSAI" & Chr(&H0D)
Texte(5) = "1A5202000050040ESSAI" & Chr(&H0D)
Texte(6) = "Q0001"
Texte(7) = "E"
Au passage, 0D est le code du caractère CR (carriage return - retour
curseur)



Autre chose,
Ne ferme pas ton port aussi vite. Tout n'est pas encore parti.

--
Fred