Демонстрация возможности управления принтером (на примере HP 520 ) — Pascal(Паскаль)

program print;
var
     f:text;
begin
     assign(f,'prn');
     rewrite(f);
     write(f,chr(27),'(s1Q');      { установить экономный режим }
     write(f,chr(27),'(s17H');     { 17 символов на дюйм в строке}
     writeln(f,'Этот текст плотностью 17 cpi');
     write(f,chr(27),'(s12H');     { 12 символов на дюйм в строке}
     writeln(f,'Этот текст плотностью 12 cpi');
     write(f,chr(27),'(s10H');     { 10 символов на дюйм в строке}
     writeln(f,'Этот текст плотностью 10 cpi');
     write(f,chr(27),'(s3B');      { установить полужирный шрифт }
     writeln(f,'Это полужирный текст');
     write(f,chr(12));             { выдать отпечатанный лист }
     close(f);
end.