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

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

Народ ! [D6, Win2k]

PEC ©   (2002-03-28 15:12:00) 

Пожалуйста помогите !
Как текстовый файл (например 1.txt) отправить на принтер !

Большое спасибо !

---

Anatoly Podgoretsky   (2002-03-29 11:06:00) [1]

PEC © (28.03.02 15:26)
Функция так и называется CopyFile

---

Song   (2002-03-29 07:39:00) [2]

Да..... :) даёте Вы..


Var ff:TextFile;
....

With TStringList.Create Do
try
LoadFromFile(...);
AssignPrn(ff);
ReWrite(ff);
try
For t:=0 to Count-1 Do WriteLn(ff,Strings[t]);
finally
CloseFile(ff);
end;
finally
Free;
end;


---

Sava   (2002-03-28 16:03:00) [3]

Это конечно глючный вариант, в LPT копировать, но помочь может, вообще более грамотно открыть его как текстовый файл, читать из него строки и выводить на печать примерно так: Printer.Canvas.TextOut(0,x,TextSTR);
но тут надо увеличивать x и следить за количеством строк на странице.

---

PEC   (2002-03-28 15:26:00) [4]

нет не пробовал, но знаю есть функция

---

Sava   (2002-03-28 15:20:00) [5]

копировать в LPT не пробовал или в PRN

---

PEC   (2002-03-28 15:19:00) [6]

может всетаки кто подскажет

---

Наверх