Печать в Delphi, минуя компоненты. Как? - Программирование

f00rd · 22.01.2004, 20:01

Че-то меня глючит, но я никак не могу додумать, как сделать следующее:
Есть RichEdit, в нем Plain Text (Обычный текст). Вот, как распечатать этот текст, минуя компоненты, чтобы на стр. было следующее:

Код:

---------------------------
|               ^         |
|               О         |  
|               т         | 
|               с         | 
|               т         |
|               у         |  
|               п         |
|               v         |
|          -----------    |
|          |  Текст  |    |
|          |         |    |
|<-Отступ->|         |    |
|          |         |    |
|          |         |    |
|          -----------    |
|               ^         |
|               О         |
|               т         |
|               с         |
|               т         |
|               у         |
|               п         |
|               v         |
---------------------------

22.01.2004, 20:09

Мона просто построчно через WriteLN(LPT1,"строка");
предварительно изменив "строку" согласно твоим отступам.
Но это прокатит если принтер умеет печатать из-под ДОСа.
В данном случае будет печататься "строка" на LPT1.

-----
with Respect...

f00rd · 23.01.2004, 17:49

Цитата:

Но это прокатит если принтер умеет печатать из-под ДОСа.

Не прокатило

22.01.2004, 20:01	# 1
f00rd ::VIP:: Регистрация: 11.06.2003 Адрес: Там... Сообщения: 236	Печать в Delphi, минуя компоненты. Как? Че-то меня глючит, но я никак не могу додумать, как сделать следующее: Есть RichEdit, в нем Plain Text (Обычный текст). Вот, как распечатать этот текст, минуя компоненты, чтобы на стр. было следующее: Код: --------------------------- \| ^ \| \| О \| \| т \| \| с \| \| т \| \| у \| \| п \| \| v \| \| ----------- \| \| \| Текст \| \| \| \| \| \| \|<-Отступ->\| \| \| \| \| \| \| \| \| \| \| \| ----------- \| \| ^ \| \| О \| \| т \| \| с \| \| т \| \| у \| \| п \| \| v \| ---------------------------

22.01.2004, 20:09	# 2
LX. Guest Сообщения: n/a	Мона просто построчно через WriteLN(LPT1,"строка"); предварительно изменив "строку" согласно твоим отступам. Но это прокатит если принтер умеет печатать из-под ДОСа. В данном случае будет печататься "строка" на LPT1. ----- with Respect...