Печать на матричный принтер.

← →
иван8511 (2006-09-03 22:44) [0]

Для печати на матричном принтере Epson LX-300 (в обход Windows) использую код

procedure TForm1.Button3Click(Sender: TObject);
var
Lst: TextFile;
begin
AssignFile(Lst, "LPT1");
Rewrite(Lst);
Label1.Caption := WinToDos("Привет мир!!!");
WriteLn(Lst, Label1.Caption);
CloseFile(Lst);
end;

Если использовать другие способы печати, то после напечатанной строки лист бумаги полностью выезжает, а мне нужно печатать на РУЛОННОЙ бумаге талончики.

Но при этом коде не знаю как послать на принтер управляющий символ типа уплотнения печати – ESC M, и другие тоже. Подскажите как можно послать управляющий символ.

← →
Пусик © (2006-09-04 01:10) [1]

> Но при этом коде не знаю как послать на принтер управляющий
> символ типа уплотнения печати

Смотри документацию на принтер - там описаны все управляющие последовательности и есть примеры(как правило - на Бейсике).
На Delphi управляющие строки передаются как строка.
Например, ESC M - Chr(27)+"M" или #27+"M"

> иван8511 (03.09.06 22:44)

Перестань спамить! Забанят.

Почитай про ESC-последовательности.
Ведь уже всё тебе разжевали!
http://predskazanie-wunschpunsch.ru/view/4-1157308645/
Плюс Пусик © (04.09.06 01:10) [1]
А ещё и прежняя ветка, где я говорил про печать на рулоне. (Лень искать, а то бы привёл ссылку).

Ну тогда добавлю и разжёванное и в добавок "полупереваренное" Write(Lst,#27,"M");

Печать на матричный принтер. Найти похожие ветки