Печать Dos-файла в порт напрямую

При печати Dos-файла в порт напрямую можно это сделать.

Например, напечатать за 2 прохода:

ESC @ - инициализация принтера

ESC G - включение режима печати за 2 прохода

ESC H - выключение режима печати за 2 прохода

Code:

Var FileOut : TextFile;

filename : String [128];

....

Filename:='PRN';

AssignFile(Fileout,Filename);

...

Write(FileOut,Chr(27)+'@');

Str1:=AnToAs(chr(27)+'G'+'Double'+chr(27)+'H');

Writeln(FileOut,Str1);

...

{преобразование Ansi to Ascii}

function AnToAs(s: String) : String;

Var i,kod : Integer;

begin

Result:=s;

for i:=1 to length(s) do

begin

kod:=Ord(s[i]);

if kod 13 then Result[i]:=' ';

if ( kod>=192) and ( kod=239) then

Result[i]:=Chr(kod-64);

if ( kod>=240) and ( kod=255) then

Result[i]:=Chr(kod-16);

if kod=168 then Result[i]:=Chr(240);

if kod=184 then Result[i]:=Chr(241);

end;

Новые статьи