经常用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)
　　  { 
　　//如果已经是最后一条记录，则退出循环

上一页12下一页