print fra memo

øh hva??

ups
hvordan printer jeg fra memo med en printdialog og en mainmenu

luk

jeg går ud fra at du har en item i din mainmenu der er kaldt Print,dobbelklik på print og indsæt denne kode.
husk at skrive \"printers\" i USES.

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

mærkeligt