memo的内容怎样直接打印？

Question

form2.bsSkinMemo1

Answer 1

var
    r: TRect;
    i: Integer;
try
        with Printer do
        begin
            r := Rect(200,200,(Pagewidth - 200),(PageHeight - 200));
            BeginDoc;
            for i := 1 to bsSkinMemo1.Lines.Count do
                Canvas.TextOut(200,200 + (i *Canvas.TextHeight(bsSkinMemo1.Lines.Strings[i])),bsSkinMemo1.Lines.Strings[i]);
            Canvas.Brush.Color := clBlack;
            Canvas.FrameRect(r);
            EndDoc;
        end;//要引用Printers单元

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  with Printer do
  begin
    BeginDoc;
      for i:=0 to memo1.Lines.Count do
      Canvas.TextOut(0, i*24, memo1.Lines[i]);
    EndDoc;
  end;
end;

Answer 3

上面忘记写:
Except
end;