1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
|
txt est un Buffer
//--------------------------------------------------
// Préparation de la chaine d'impression
//--------------------------------------------------
// Sélection du mode ESC/P
txt = ESC + "i" + "a" + Caract(0x00)
// Initialisation du mode ESC/P
txt += ESC + "@"
// Impression en mode Paysage
txt += ESC + "i" + "L" + Caract(0x01)
// Définition de l'étiquette à imprimer
// For barcode type CODE39, with no characters printed below the barcode, a size of large (width) × 480 dots
// (height) and a ratio between thick and thin bars of 3:1, the command will be as shown below.
// ESC i t0 r0 he0h 01h w3 z0 B 123456789 \
// Définition du Code barre à imprimer
txt += ESC + "i" + "t" + Caract(0x00) + "r" + Caract(0x00) + "h" + Caract(0xe0) + Caract(0x01) + "w" + Caract(0x02) + "z" + Caract(0x00) + "B"
// Code barre à imprimer
txt += "123456789"
// Backslash
txt += Caract(0x5C)
// Lancement de l'impression
txt += Caract(12)
//--------------------------------------------------
// Envoi de la chaine d'impression
//--------------------------------------------------
SI SocketEcrit(nom_socket,UnicodeVersAnsi(txt)) ALORS
Lib_ResTrt = "Impression OK"
SINON
Lib_ResTrt = "Problème d'impression"
FIN |
Partager