|
经常用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,"┃");
Printer()->Canvas->TextOut(x+2491.73,y,"┃");
Printer()->Canvas->TextOut(x+3487.61,y,"┃");
Printer()->Canvas->TextOut(x+4151,y,"┃");
}
}
//换页结束
}
//打印完全部记录后，打印表格尾部
y=y+80;
Printer()->Canvas->TextOut(x,y,"┗━━━━━━━━━┻━━━━━━━━━━┻━━┻━━━━━┻━━━━━━━━━━━┻━━━━━━━┛");
//取得总页数
int pp=Printer()->PageNumber;
//在表格尾部打印页码
Printer()->Canvas->TextOut(3800,y+200,"页码："+IntToStr(pp));
Printer()->EndDoc();//结束一个打印工作
ShowMessage("打印完成!谢谢使用!");
}
//异常处理
catch(...)
{
ShowMessage("打印出错!请检查打印机是否连接好或者电源是否打开及其设置!");
}
欢迎光临黑兵网站http://www.ancn.net
E-mail:621150@0451.com QQ:621150
[聊天工具]如何用MSN Messenger发短信__天极Yesky [常用软件]如何用WinWord做表格？
[VB.NET程序]如何用VB.Net创建一个三层的数据库应用程序(转贴) [VB.NET程序]如何用VB获得机器的MAC地址
[VB.NET程序]如何用VB获得Windows各类系统目录 [VB.NET程序]如何用VB6写COM组件（二）
[Delphi程序]Delphi(BCB)中编译器版本宏定义 [Delphi程序]如何用Delphi制作录音程序
[Delphi程序]如何用idFTP遍历整个目录----下载、删除 [Delphi程序]Delphi&BCB一线程序员开发经验
|
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
