udskrivning af Tmemo?

Tilføj Printers til uses

procedure PrintTStrings(Lst : TStrings) ;
var
I,
Line : Integer;
begin
I := 0;
Line := 0 ;
Printer.BeginDoc ;
for I := 0 to Lst.Count - 1 do begin
Printer.Canvas.TextOut(0, Line, Lst[I]);
Line := Line + Abs(Printer.Canvas.Font.Height);
if (Line >= Printer.PageHeight) then
Printer.NewPage;
end;
Printer.EndDoc;
end;

Brug denne kode til at udskrive:

begin
PrintTStrings(Memo1.Lines);

[Redigeret d. 16/04-05 21:21:47 af Benni]

fil er en textfile og i er en integer

assignfile(fil,'LPT1'); //du kan evt bruge assignprn for at bruge noget a funktionalliteten fra printers uniten
rewrite(fil);
for i := 0 to memo1.lines.count-1 do
begin
   writeln(fil, memo1.lines.strings[ i]);
end;
closefile(fil);

Jeppe Johansen
Jeppesoftware@hotmail.com

[Redigeret d. 23/04-05 12:13:53 af Jeppe]

Tror han ikke mener udskriver på printer måden ... Tror mere han mener at han igennem koder vil have vist en memo!

Kan du uddybe?



Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Viljen er udviklerens bedste ven

Tror han ikke mener udskriver på printer måden ... Tror mere han mener at han igennem koder vil have vist en memo!

Kan du uddybe?



Shafh
www.shafh.dk
Shafh@stofanet.dk
Theis F. Hinz

Viljen er udviklerens bedste ven

jeg vil bare ahve at det der står i memoen, kommer ud på papiret
******************
*Fishing is a lifestyle*
*Like Computer is *
******************

I så fald tror jeg godt at du kan bruge det jeg skrev

Prøvede lige koden for sjov og kom til at tænke på hvordan man gør hvis man vil have printeren til at printe et stykke fra siden og fra toppen? Altså så margnerne ikke var helt ude i kante af papiret.

Mvh.
Rune Jensen
---------------------------------------------------------------------------
##The one who laugh last is the one who think slowest!##
---------------------------------------------------------------------------