Und noch ein Versuch
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var tf: TextFile;
begin
AssignFile(tf, 'LPT1:');
Rewrite(tf);
Writeln(tf,'<STX>L');
Writeln(tf,'D11<CR>');
Writeln(tf,'1A00000001501000123456789<CR>');
Writeln(tf,'121100000000100Barcode A<CR>');
Writeln(tf,'E');
CloseFile(tf);
end;
end.
Daß <CR> ein Steuerzeichen (carriage return) sein soll, ist mir schon verständlich. Habe auch mal versucht, daß <CR> wegzulassen.
Hier nochmal die original
ASCII-Befehlsfolge:
A: Code 3 of 9
Valid Characters: 0-9, A-Z, - . * $ / + % and the space character.
Variable Length.
Valid bar widths: The expected ratio of wide to narrow bars can range from 2:1 to 3:1.
The following example prints a code 3 of 9 bar code with a wide to narrow bar ratio of 3:1:
<STX>L
D11<CR>
1A00000001501000123456789<CR>
121100000000100Barcode A<CR>
E
Gruss
Gregor