Скачать: CL | DM;

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

← →
иван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"

---

← →
Германн ©   (2006-09-04 01:19) [2]

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

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.028 c