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

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

← →
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;

---

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

А вот так?

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


---

← →
Wolferio ©   (2005-10-07 12:04) [11]

> 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;

---

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

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



Память: 0.47 MB
Время: -0.97 c