有关于打印方面的高手吗??????????要写打印预览哦!!!!!!!!!!!!!!!!!!!先看我的代码!

Question

使用TPrinter将内容画在Canvas上为打印,
使用Image将内容画在Canvas上为预览.

Answer 1

var
  h : integer;
    with memo1.Lines,Image1.Picture.Bitmap.Canvas do
    begin
      h:=TextHeight('测试');
      for i:=0 to count-1 do
        TextOut(5,h*(i+1),memo1.lines[i]);
    end;

Answer 2

直接画在FORM上：
var
  h : integer;
    with memo1.Lines,Canvas do
    begin
      h:=TextHeight('测试');
      for i:=0 to count-1 do
        TextOut(5,h*(i+1),memo1.lines[i]);
    end;