50 nemme point

jeg kigger på det imorgen, hvis det er okay :-)

/ZIRON

Jeg har ikke lige delphi ved hånden og derfor er det ikke sikkert at syntaksen holder og jeg kan heller ikke huske hvordan eller objecterne er opbygget.
Men jeg for søger med lidt dansk/delphi kode:

  printer.begindoc;
  x:=0;
  for i:=1 to memo.lines.count-1 do
  begin
    x:=x+memo.lines.height; //sådan ca
    printer.canvas.textxy(x,30,memo.lines[i])
  end
  printer.enddoc;

Dette mener jeg vil virke når du lige får skrevet det om til noget som kompileren kan forstå. Det jeg mener er at algoritmen er rigtig men at denne kode sikkert er fyldt med fejl.
Håber du kan bruge det.