ASCII direkt an Etikettendrucker schicken

[tuxracer78]

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

[jfheins]

Ich habe eine Idee ! :idea:

WriteLn

[tuxracer78]

Was möchtest Du mir denn damit sagen ?
Daß WriteLn den Zeilenvorschub beinhaltet? Klär mich doch bitte auf, wenn ansonsten irgend etwas unlogisch wäre.