D'où cela peut il provenir ?
"Rageys Fabien" <fab...@fmdi.Fr> a écrit dans le message news:
9o9g2u$hsd$1...@wanadoo.fr...
Avant d'obtenir des résultats satisfaisants, j'avais du pas mal jouer avec
les switches qui se trouvent sous l'imprimante.
Peut-être ton paramètrage doit-il être fait à ce niveau...
--
Pascal Héraud
pascal...@free.fr
"Rageys Fabien" <fab...@fmdi.Fr> a écrit dans le message news:
9o9g2u$hsd$1...@wanadoo.fr...
j'imprime comme avec une imprimante normale avec les commandes iimprime,
ipolice, ifinimprime.....
"Pat" <pat.g...@wanadoo.fr> a écrit dans le message news:
9oaqbm$3vc$1...@wanadoo.fr...
ton imprimante est sur port com ou // ??
"Pascal HERAUD" <her...@bigfoot.com> a écrit dans le message news:
sF8q7.4359$4O6.4...@nnrp5.proxad.net...
Bon courage
Dominique Lecocq
www.binact.com
"Rageys Fabien" <fab...@fmdi.Fr> a écrit dans le message news:
9o9g2u$hsd$1...@wanadoo.fr...
Pour répondre à ta question, mon imprimante était sur port //
--
Pascal Héraud
pascal...@free.fr
"Rageys Fabien" <fab...@fmdi.Fr> a écrit dans le message news:
9oc6m9$mj7$1...@wanadoo.fr...
merci
"Christian Macke" <chm...@amla-info.fr> a écrit dans le message news:
9oetgs$dtg$1...@s1.read.news.oleane.net...
Procédure globale creation_fichier_commande
Procédure creation_fichier_commande()
cptl est un entier
cptl = 0
sablier
iCreePolice(1,8,inormal,iCourier)
ipolice(1)
texte est une chaine
texte = "-------------------------------------"
iimprime(Texte)
Texte = " DETAIL DE LA COMMANDE"
iimprime(Texte)
texte = "-------------------------------------"
iimprime(Texte)
hh est une chaine
hh = heuresys()
Texte="Le " +DateVersChaine(DateSys())+" "
Texte = Texte + gauche(heureverschaine(hh),5)
iimprime(Texte)
iimprime("")
Texte = " Article Quantité"
iimprime(Texte)
iimprime("")
Nentree est un entier
fic_sor est une chaine
fic_sor = Rep_envoi + fic_commande + numeriqueverschaine(c_depot,"02d") +
".txt"
lignecrit est une chaine
ART est composé de
MAG est une chaine fixe sur 2
F0 est une chaine fixe sur 1
LIB est une chaine fixe sur 30
F1 est une chaine fixe sur 1
CDART est une chaine fixe sur 16
F2 est une chaine fixe sur 1
DES1 est une chaine fixe sur 30
F3 est une chaine fixe sur 1
QTE1 est une chaine fixe sur 3
F4 est une chaine fixe sur 1
QTE2 est une chaine fixe sur 3
F5 est une chaine fixe sur 1
QTE3 est une chaine fixe sur 1
fin
Nentree=fouvre(fic_sor,foAJOUT+fobinaire)
SI Nentree = -1 alors
Nentree=fouvre(fic_sor,focreation+fobinaire)
fin
si Nentree <> -1 alors
hlitpremier("COMMANDE","CODEART")
TantQue pas H.EnDehors
si CO.VALID = vrai alors
ART.MAG = numeriqueverschaine(c_depot,"2d")
ART.F0 = ";"
ART.LIB = c_libdepot
ART.F1 = ";"
ART.CDART = CO.CODEART
ART.F2 = ";"
ART.DES1 = CO.DESI1ART
ART.F3 = ";"
ART.QTE1 = numeriqueverschaine(CO.QTECMDE,"03d")
ART.F4 = ";"
ART.QTE2 = numeriqueverschaine(partieentiere(CO.QTEVENDU),"03d")
ART.F5 = ";"
ART.QTE3 = numeriqueverschaine(partiedecimale(CO.QTEVENDU)*10)
Lignecrit = ART
fecritligne(Nentree,Lignecrit)
Texte = milieu(CO.CODEART,1,8) + milieu(CO.DESI1ART,1,20) + " " +
numeriqueverschaine(CO.QTECMDE,"2d")
cptl = cptl + 1
iimprime(Texte)
hsupprime("COMMANDE")
si cptl > 15 alors
ifinimprime
multitache(400)
iimprime("")
cptl = 0
FIN
multitache(10)
fin
HLitSuivant("COMMANDE","CODEART")
Fin
fferme(Nentree)
sinon
info("Impossible de créer le fichier des commandes")
fin
iimprime("Fin de la commande ")
iFinImprime()
sablier(faux)
D'autre part, le petit capot situé sous l'imprimante permet de vérifier
comment sont positionné les switchs. Les vitesses port pc et switch
imprimante sont elles correctes ?
Cordialement
Christian Macke
J'ai refait mon code, plus d'utilisation des commandes Iimprime et
compagnie, j'utilise l'impression direct sur le port com avec un souvre et
j'envois des commandes d'échappement, une ligne à imprimer = une ligne a
envoyer....
Je n'ai plus de problèmes.....
Merci à TOUS
"Christian Macke" <chm...@amla-info.fr> a écrit dans le message news:
9os4f4$hlh$1...@s1.read.news.oleane.net...