经常用Borland C++ Builder5编程，操作数据库时，报表打印是必不可少的。但BCB5自身所带的报表控件又显得缺少灵活性。所以，我想到了用TPrinter来打印报表。使用TPrinter必须要在程序头部加入#include <vcl\\Printers.hpp>
由于对于不是链页打印纸来说，断页很困难，所以，我所需要设定每页打印的记录数。下面就是我自己编制的一个每页打印30条符合条件记录的代码，写给大家，以供参考。
try{
//定位打印头
int x,y;
x=170;
y=150;
Printer()->BeginDoc();//开始一个打印工作
//打印标头
Printer()->Canvas->Font->Size=24;
Printer()->Canvas->Font->Name=\"黑体\";
Printer()->Canvas->TextOut(x,y,\" -----服装请领记录-----\");
Printer()->Canvas->Font->Size=10;
Printer()->Canvas->Font->Name=\"宋体\";
x=190;
y=y+300;
//打印表格标题行
Printer()->Canvas->TextOut(x,y,\" ◇\"+Trim(Label12->Caption));
y=y+80;
Printer()->Canvas->TextOut(x,y,\"┏━━━━━━━━━┳━━━━━━━━━━┳━━┳━━━━━┳━━━━━━━━━━━┳━━━━━━━┓\");
y=y+80;
Printer()->Canvas->TextOut(x,y,\" 日 期 品 名 姓 名 部 门 职 务\");
Printer()->Canvas->TextOut(x+1820,y,\"数量\");
Printer()->Canvas->TextOut(x,y,\"┃\");
Printer()->Canvas->TextOut(x+830,y,\"┃\");
Printer()->Canvas->TextOut(x+1742.1,y,\"┃\");
Printer()->Canvas->TextOut(x+1991.2,y,\"┃\");
Printer()->Canvas->TextOut(x+2491.73,y,\"┃\");
Printer()->Canvas->TextOut(x+3487.61,y,\"┃\");
Printer()->Canvas->TextOut(x+4151,y,\"┃\");
ADOQuery1->First();
//换页记录计数器初始化
int i=0;
//建立循环，如果不是最后一条记录则进行循环
while(!ADOQuery1->Eof)
{
//计数器加1
i=i+1;
y=y+80;
//打印第一条记录
Printer()->Canvas->TextOut(x,y,\"┣━━━━━━━━━╋━━━━━━━━━━╋━━╋━━━━━╋━━━━━━━━━━━╋━━━━━━━┫\");
y=y+80;
Printer()->Canvas->TextOut(x,y,\"┃\"+ADOQuery1->FieldByName(\"请领日期\")->AsString);
Printer()->Canvas->TextOut(x+830,y,\"┃\"+ADOQuery1->FieldByName(\"品名\")->AsString);
Printer()->Canvas->TextOut(x+1742.1,y,\"┃\"+ADOQuery1->FieldByName(\"数量\")->AsString);
Printer()->Canvas->TextOut(x+1991.2,y,\"┃\"+ADOQuery1->FieldByName(\"请领人\")->AsString);
Printer()->Canvas->TextOut(x+2491.73,y,\"┃\"+ADOQuery1->FieldByName(\"部门\")->AsString);
Printer()->Canvas->TextOut(x+3487.61,y,\"┃\"+ADOQuery1->FieldByName(\"职务\")->AsString);
Printer()->Canvas->TextOut(x+4151,y,\"┃\");
ADOQuery1->Next();
//测试是否该换页，每30条记录换一次页
if(i%30==0)
{
//如果已经是最后一条记录，则退出循环
if(ADOQuery1->Eof)
{
break;
}
//如果不是最后一条记录
else
{
//如果该换页，则打印页尾和页码
int p=Printer()->PageNumber;
y=y+80;
Printer()->Canvas->TextOut(x,y,\"┗━━━━━━━━━┻━━━━━━━━━━┻━━┻━━━━━┻━━━━━━━━━━━┻━━━━━━━┛\");
Printer()->Canvas->TextOut(3800,y+200,\"页码：\"+IntToStr(p));
Printer()->NewPage();
Application->MessageBox(\"请更换纸张后按确定!\",\"提示\",MB_OK);
x=170;
y=150;
Printer()->Canvas->Font->Size=24;
Printer()->Canvas->Font->Name=\"黑体\";
Printer()->Canvas->TextOut(x,y,\" -----服装请领记录-----\");
Printer()->Canvas->Font->Size=10;
Printer()->Canvas->Font->Name=\"宋体\";
x=190;
y=y+300;
Printer()->Canvas->TextOut(x,y,\" ◇\"+Trim(Label12->Caption));
y=y+80;
Printer()->Canvas->TextOut(x,y,\"┏━━━━━━━━━┳━━━━━━━━━━┳━━┳━━━━━┳━━━━━━━━━━━┳━━━━━━━┓\");
y=y+80;
Printer()->Canvas->TextOut(x,y,\" 日 期 品 名 姓 名 部 门 职 务\");
Printer()->Canvas->TextOut(x+1820,y,\"数量\");
Printer()->Canvas->TextOut(x,y,\"┃\");
Printer()->Canvas->TextOut(x+830,y,\"┃\");
Printer()->Canvas->TextOut(x+1742.1,y,\"┃\");
Printer()->Canvas->TextOut(x+1991.2,y,\"┃\");
责任编辑：小草
