求教TPrinter用法

Question

1.用canvas.Textout来打印
   Canvas.TextOut(x,y,'hello');x,y为坐标。
2.用canvas.textrect
with Printer do
  begin
    BeginDoc;
    Canvas.TextRect(Rect(200,200,PageWidth-200,PageHeight-200),
                    200, 200, Memo1.Lines.Text);
    EndDoc;
  end;
end;

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var i:integer;
var h:integer;
begin
        h:=Printer.Canvas.TextHeight(ListBox1.Items.Strings[0]);
        For i:=0 to ListBox1.Count-1 do
        begin
                Printer.Canvas.TextOut(200,(i+1)*h,ListBox1.Items.Strings[i]);
        end;
end;
//这样就可以，具体位置，你调整一下。