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

Текстовая печать   Найти похожие ветки 

← →
MVova ©   (2002-06-06 16:50) [0]

Всем привет.

Есть текст в TStringList как отправить его на печать в текстовом режиме (принтер матричный).

Спасибо.

---

← →
Fiend   (2002-06-06 17:04) [1]

Открой Lpt1 и печатай в него, всё будет ок

---

← →
MVova ©   (2002-06-06 17:49) [2]

А если он сетевой?

---

← →
Fiend   (2002-06-06 17:57) [3]

тоже не проблема
делаем так:


function TForm3.PrintReport:boolean;
var s,s1,s2,s3: PChar;
devm:THandle;
printername:string;
StringNo:integer;
begin
try
if GraphicPrint=false then begin
PreviewProc.Filtered:=false;
DataSource1.Enabled:=false;
{Printer.BeginDoc;}
s:=AllocMem(255);
s1:=Allocmem(255);
s2:=allocmem(255);
s3:=allocmem(255);
Printer.GetPrinter(s1,s2,s3,devm);
if pos("\\",s1)=0 then printername:="LPT1" else printername:=s1;
AssignFile ( f, printername );
Rewrite ( f );
PreviewProc.First;
while PreviewProc.EOF=false do begin
CharToOEM(PChar(PreviewProc.FieldByName("output").text),s);
WriteLn ( f, s);
PreviewProc.Next;
end;
CloseFile ( f );
FreeMem(s);
freemem(s1);
freemem(s2);
freemem(s3);
{Printer.EndDoc;}
end

Эта фишка сама определяет куда и как печатать.

это еще не конец хвункции, но там есть то что тебе надо
извини за кривость текста, написано триста лет назад.

---

← →
Song ©   (2002-06-06 19:34) [4]

См. AssignPrn()
Печать будет вестись на текуще выбранный принтер. Исходник будет на порядок легче чем в предыдущм ответе.
Вообще способов много. Я бы сказал печать через устройство prn это самый последний способ что можно применить.

---

← →
MVova ©   (2002-06-06 19:51) [5]

Спасибо. Буду пробовать.

---

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

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



Память: 0.46 MB
Время: 0.008 c