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

← →
Wolferio © (2005-10-07 10:35) [0]

Добрий день!

Помогите с параметрами матричных принтеров.
Дело в том что нужно напечатать "например" текст на матричном принтере с определёными параметрами, например 10,12,17 или 20 символов на дюйм. Как это можно реализовать в Delphi.

Спасибо!

← →
snake_r (2005-10-07 11:14) [1]

посылай вместе стекстом управляющие символы (Esc последовательности)
например
"мама ^g мыла ^h раму ^g"

сдесь последовательность взята отфонаря, список последоваетльностей посмотри в инете

← →
isasa © (2005-10-07 11:16) [2]

список последоваетльностей посмотри
в руководстве... для принтера.

← →
snake_r (2005-10-07 11:17) [3]

ну если оно есть под рукой ;)

← →
Wolferio © (2005-10-07 11:25) [4]

> посылай вместе стекстом управляющие символы (Esc последовательности)
> например
> "мама ^g мыла ^h раму ^g"

Я команды для матричных принтеров знаю. Но как правильно написять строчку в делфи для печати, например печать из RichEdit.

Спасибо!

← →
snake_r (2005-10-07 11:37) [5]

procedure TForm1.Button1Click(Sender: TObject);

var
MyFile: TextFile;
begin
AssignPrn(MyFile);
Rewrite(MyFile);
Writeln(MyFile, "Print this text");
System.CloseFile(MyFile);
end;

← →
Wolferio © (2005-10-07 11:44) [6]

> var
> MyFile: TextFile;
> begin
> AssignPrn(MyFile);
> Rewrite(MyFile);
> Writeln(MyFile, "Print this text");
> System.CloseFile(MyFile);

да, Но где здесь указываються параметры на принтер?

Спасибо!

← →
snake_r (2005-10-07 11:45) [7]

Writeln(MyFile, "мама ^g мыла ^h раму ^g");

← →
snake_r (2005-10-07 11:51) [8]

учти что для RichEdit необходимо поставить PlaneText:=True;
ибо у тебя без этого будут на притер посланы все символы :)
т.е. вылезет куча рогаликов :)

← →
snake_r (2005-10-07 11:52) [9]

немного исправлюсь :)
свойство PlainText:=True;

А вот так?
const // управляющие символы bld = #$01; ord = #$02; cur = #$03; ................. Writeln(MyFile, bld, "Print ",ord,"this ",cur,"text"); ///////////////

> snake_r

Спасибо. Извини но у меня ещё вопрос. Напечатать файл который находиться например на с:\Temp\text.doc.
То в таком случае мне как надо задавать эти параметри.?

Спасибо!

← →
snake_r (2005-10-07 13:21) [12]

загрузи его в RichEdit и дальше по плану
например
var t:TRichEdit;

Begin

.....
t:=TrichEdit.Create(nil);
t.Lines.LoadFromFile("c:\temp\text.doc");
.....
// печать
.....

t.Free;
end;

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