Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Редакторы текста, отчеты / Принтер в Delphi

Принтер в Delphi

»»» Andrey (08.06.00 20:22)
Уважаемые прошу вас подсказать как с помощью WriteLn-на
послать управляющие коды на принтер, и возможно ли такое.
Заранее благодарен Андрей.

»»» sky3d - sky3d@mail.ru (11.08.00 15:36)
Недавно узнал о конференции, пишу первый раз, надеюсь не в последний.
При печати 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;

-= Из конференции сайта MASTERS OF DELPHI (http://delphi.mastak.com) =-

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru