drukowanie memo

da mi ktos konkretna procedure do drukowania zawartosci komponentu TMemo? bylbym wdzieczny

Z tego co wiem to rozwiązanie jest w gotowcach.

tak to jest w gotowcach !!!!!!!!!!!!!!!!!!!!!!!!!!
http://www.4programmers.net/delphi/gotowce/index.php?action=show&id=37
ale to rozwiazanie z gotowcow jest troche dziwne hehe :)---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

jak nie odpowiada ci rozwiazanie z gotowcow to sprobuj moze z tym:

var
I : Integer;
TF : TextFile;
begin
AssignPrn(TF);
Rewrite(TF);
try
Printer.Canvas.Font.Size := 12;
for i := 0 to Memo1.Lines.Count -1 do
WriteLn(TF, Memo1.Lines[i]);
finally
CloseFile(TF);
end;
end;

do uses musisz dopisac slowo "Printers"---=-=[ Delphi 3, 6 ]=-=-
-=-=-==[ LKS ]==-=-=-
-=[ [email protected] ]=-

dzieki juz mialem wczesniej... zapomnialem napisac w poscie zebyscie juz nie szukali ;) dzieki

LKS napisal:
WriteLn(TF, Memo1.Lines[i]);

Ja bym dal:

WriteLn(TF,' ', Memo1.Lines[i]);

margines :P

to po kiego grzyba puszczales post jak znales odpowiedz?--Vroc
&ltDelphi Knight&gt