Печать на принтер штрих кодов.

[xakkkkker]

Здравствуйте возник такой вопрос, как отправить команды на принтер GODEX EZ_DT_2. Пробовал примеры которые есть в инете, но принтер прост впускает бумагу и загорается красная, типа ошибка. Может кто нить сталкивался? Как отправить команды на принтер?

Вот код который надо отправить.

^Q76,3
^W50
^H10
^P1
^S2
^AD
^C1
^R0
~Q+0
^O0
^D0
^E0
~R200
^L
Dy2-me-dd
Th:m:s
BE,32,32,3,7,100,0,1,123456789012
E

а вот как я отправлял

F: TextFile;
 ...............
 AssignPrn(F);
 Rewrite(F);
 Writeln(F,'N' + Chr(10));
 Writeln(F,'A50,0,0,1,1,1,N,"Example 1"' + Chr(10));
 Writeln(F,'A50,50,0,2,1,1,N,"Example 2"' + Chr(10));
 Writeln(F,'A50,100,0,3,1,1,N,"Example 3"' + Chr(10));
 Writeln(F,'A50,150,0,4,1,1,N,"Example 4"' + Chr(10));
 Writeln(F,'A50,200,0,5,1,1,N,"EXAMPLE 5"' + Chr(10));
 Writeln(F,'A50,300,0,3,2,2,R,"Example 6"' + Chr(10));
 Writeln(F,'P1' + Chr(10));
 CloseFile(F);

[Luuzuk]

+ Chr(10)

а это зачем? writeln сам перевод строки пишет же. и #13 и #10

[xakkkkker]

Дело в том, что если вот так пустить

F: TextFile;
 ...............
 AssignPrn(F);
CloseFile(F);

то все равно принтер выпускает бумагу и дает ошибку. Хотя здесь никаких команд не было.