| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Печать на матричный принтер. [D6, XP]
иван8511 © (2006-09-03 22:44:00)Для печати на матричном принтере 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:19:00) [1]
> иван8511 (03.09.06 22:44)
Перестань спамить! Забанят.
Почитай про ESC-последовательности.
Ведь уже всё тебе разжевали!
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1157308645&n=5
Плюс Пусик © (04.09.06 01:10) [1]
А ещё и прежняя ветка, где я говорил про печать на рулоне. (Лень искать, а то бы привёл ссылку).
Ну тогда добавлю и разжёванное и в добавок "полупереваренное"Write(Lst,#27,'M');
Пусик (2006-09-04 01:10:00) [2]
> Но при этом коде не знаю как послать на принтер управляющий
> символ типа уплотнения печати
Смотри документацию на принтер - там описаны все управляющие последовательности и есть примеры(как правило - на Бейсике).
На Delphi управляющие строки передаются как строка.
Например, ESC M - Chr(27)+'M'или # 27+'M'
| |
