Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];
ВнизПечать на матричный принтер. Найти похожие ветки
← →
иван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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.09.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.039 c