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); |
Partager