Print Memo

Jeg mener bare du skriver memo1.print;

Hvordan får man en printer til at udskrive indholdet af en TMemo?

hvis du ikke bruger if så udskriver den selvom at brugeren trykker annuler

Jeg har ikke kunnet få nogen af koderne til at virke!!!

Hvorfor skriver du forresten kommentarer istedet for spørgsmål

Hvorfor skriver du forresten kommentarer istedet for spørgsmål



Fordi jeg ikke vil af med de få udv point jeg har!!!

Kan man ikke printe en memo. ØV! Kan man så sige mig hvordan man kan sætte dato & klokkeslæt ind i en memo???

Kode 

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;