Memo og print

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]);

    {Font.Height is calculated as -Font.Size * 72 / Font.PixelsPerInch which returns
    a negative number. So Abs() is applied to the Height to make it a non-negative
    value}
    Line := Line + Abs(Printer.Canvas.Font.Height);
    if (Line >= Printer.PageHeight) then
      Printer.NewPage;
  end;
  Printer.EndDoc;
end;


med denne funktion skriver du fx PrintTStrings(memo1.lines);

du skal dog huske at lave en global variabel som er:

Printer : TPrinter;

som skal stå oppe hvor der står
Form1 : TForm1 eller noget i den retning :)

Det ville dog være nemmere hvis du brugte richedit for den understøtter allerede print funktionen (ligger under win32 fanebladet)

richedit1.lines.print

memo1.lines.print  - virker det ikkke???  ( skal sidde i knappens kode )

Fatter hat.
Hvor skal "procedure PrintTStrings(Lst : TStrings) ;" osv...
stå henne?

brug richedit istedetfor den har indbygget print funktion

Kan jeg sætte dato og klokkeslæt ind i en rich edit?
Hvordan?

her en kortere udgave:

Husk at skrive Printers under uses foroven..

koden indsætter du i en buttons event eller et menupunkt eller andet.


var
Line:Integer;
PrintText:System.Text;
begin
if PrintDialog1.Execute then
begin
AssignPrn(PrintText);
ReWrite(PrintText);
Printer.Canvas.Font := History.Font;
for Line :=0 to History.Lines.Count - 1 do
Writeln(PrintText, History.Lines[Line]);
System.Close(PrintText);
end;
end;