Печать Dos-файла в порт напрямую
Печать Dos-файла в порт напрямую
При печати Dos-файла в порт напрямую можно это сделать.
Например, напечатать за 2 прохода:
ESC @ - инициализация принтера
ESC G - включение режима печати за 2 прохода
ESC H - выключение режима печати за 2 прохода
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;
end;
Взято с сайта
