不用报表控件怎么实现数据批量打印？

Question

不用报表控件怎么实现数据批量打印，用dbtext输出数据

Answer 1

uses Printers;procedure TForm1.Button1Click(Sender: TObject);
var print:TPrinter;
begin
  print := TPrinter.Create;
  print.BeginDoc;
  print.Canvas.TextOut(0,0,'打印测试');
  print.EndDoc;
end;

Answer 2

我的意思是将数据库中的数据依次打印，好比，我设计了一个套打程序，我要将数据库中的人名打印出来，每打印一页根据数据库更换一个姓名（数据库文件为ww.dbf,取值字段为xm）