Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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


Wolferio ©   (2005-10-07 10:35:00) 

Добрий день!

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

Спасибо!


snake_r   (2005-10-07 13:21:00) [1]

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

Begin

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

t.Free;
end;


Wolferio   (2005-10-07 12:04:00) [2]


> snake_r

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

Спасибо!


isasa   (2005-10-07 11:54:00) [3]

А вот так?

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


snake_r   (2005-10-07 11:52:00) [4]

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


snake_r   (2005-10-07 11:51:00) [5]

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


snake_r   (2005-10-07 11:45:00) [6]

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


Wolferio   (2005-10-07 11:44:00) [7]


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


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

Спасибо!


snake_r   (2005-10-07 11:37:00) [8]

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:25:00) [9]


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


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

Спасибо!


snake_r   (2005-10-07 11:17:00) [10]

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


isasa   (2005-10-07 11:16:00) [11]

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


snake_r   (2005-10-07 11:14:00) [12]

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо