Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Вниз

Народ ! 


PEC   (2002-03-28 15:12) [0]

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

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



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

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



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

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



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

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



Sava   (2002-03-28 16:03) [4]

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



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

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


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;



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

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




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
1-32896           BlackJack             2002-03-22 19:44  2002.04.11  
Есть ли прога типа sourse sav-а только для delphi ?


3-32671           Vladimir_Shk          2002-03-20 16:07  2002.04.11  
Trigger result


1-32785           snoup                 2002-03-29 23:21  2002.04.11  
Помогите пожалуйста пишу так надо что бы оно ещё автозапукалось!


3-32683           Stratos               2002-03-21 09:27  2002.04.11  
Interbase: явная транзакция


3-32717           onix                  2002-03-21 13:24  2002.04.11  
Удаление текущей записи из Dataset a