Discussion :

[zahcen]

Bonjour,

Savez vous comment imprimer avec Delphi sur une imprimante ZEBRA 2844 connecté en USB?
J'arrive à envoyer les commandes d'impression en java mais en utilisant Delphi l'imprimante n'interprète pas les commandes.
Exemple :
en Java, le message est bien imprimé, mais en Delphi il affiche A500,10...
Code Java :

Code java :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
String s =  "A500,10,1,2,1,1,N,\"TEST\"\n" +"P1\n";
byte[] by = s.getBytes();
DocFlavor flavor = DocFlavor.BYTE_ARRAY.AUTOSENSE;
Doc doc = new SimpleDoc(by, flavor, null);
job.print(doc, null);

Code Delphi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
AssignPrn(PrintText);
Rewrite(PrintText);
WriteLn(PrintText,'A500,10,1,2,1,1,N,\"TEST\"\n" +"P1\n');
Writeln(PrintText,'')}
CloseFile(PrintText);

Merci.

[Andnotor]

Je ne sais pas à quoi servent test codes mais, les Zebra 2844 s'utilisent comme n'importe quel imprimante en dessinant ou écrivant directement sur le Printer.Canvas.

[SergioMaster]

Bonjour , je te souhaites la bienvenue sur le forum

si tu veux envoyer directement du code ZPL (Zebra Printer Language) avec Delphi voici un extrait de code ici impression sur LPT1

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TLabels.ImprimerDirectClick(Sender: TObject);
var i,n,k : Word;
    WLancement,commande : String;
    Lpt2: TextFile;
begin
AssignFile(Lpt2,'LPT1');
Rewrite(Lpt2);
WLancement:=Format('%s-%d-%d',[Data.LignesLancement.FieldByName('SAISON').asString,
                               Data.LignesLancement.FieldByName('NUMERO').asInteger,
                            Data.LignesLancement.FieldByName('LIGNE').asInteger]);
Writeln(Lpt2,'^XA^MCY^XZ^XA^IDLABSOFT^FS^XZ');
Writeln(Lpt2,'^XA^LRN^FWN^CFD,24^LH0,0^CI0^PR2^MNY^MTT^MMT^MD4^PON^PMN');
Writeln(Lpt2,'^ADN,36,30^FO37,151^FD'+WLancement+'^FS');
Writeln(Lpt2,'^A0N,31,46^FO33,231^FD'+Commande+'^FS');
Writeln(Lpt2,'^PQ1,0,1,Y');
Writeln(Lpt2,'^XZ');
CloseFile(Lpt2);

[zahcen]

Bonjour et merci pour votre réponse rapide.

Dans le document de programmation EPL de Zebra les commandes sont de la forme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
B500,10,1,E30,3,7,100,B,"612041600021580109"\n
       A370,10,1,4,1,1,N,"Exemple1"\n

Alors que dans votre code c'est

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
 ^XA^MCY^XZ^XA^IDLABSOFT^FS^XZ
^XA^LRN^FWN^CFD,24^LH0,0^CI0^PR2^MNY^MTT^MMT^MD4^PON^PMN
^ADN,0,30^FO37,151^FDTEST^FS
^A0N,31,46^FO33,231^FDCOMMANDE^FS
^PQ1,0,1,Y
^XZ

Est ce le même langage ?

[zahcen]

Effectivement vous utilisez le langage ZPL et non EPL, je vais vérifier si le ZPL est compatible avez la LP 2844.

[SergioMaster]

Effectivement vous utilisez le langage ZPL et non EPL, je vais vérifier si le ZPL est compatible avez la LP 2844.

l'important c'était surtout l'utilisation de assignfile,rewrite,writeln,et closefile

ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
AssignFile(Lpt2,'LPT1');
Rewrite(Lpt2);
Writeln(Lpt2,'B500,10,1,E30,3,7,100,B,'+Quotedstr('612041600021580109')+'\n
A370,10,1,4,1,1,N,'+Quotedstr('Exemple1')+'\n');
CloseFile(Lpt2);

pourrait peut-être fonctionner dasn ton cas

PS. Merci de mettre le code entre balise , surlignes le code et clique sur le boutton [#] , c'est plus facile à lire