delphi报表制作技巧20篇.pdfVIP

Delphi报表制作技巧 目 录 Delphi 3 中报表的制作2 Delphi 编写一个打印程序，3 Delphi 应用程序中中国式报表的制作3 打印测试6 Quick Report 2.07 quickreport 10 把查询信息输出到word 打印11 财务报表12 格式化整数输出。15 Delphi 编写一个打印程序16 打印功能的实现17 动态制作报表19 多栏打印20 检测存在打印机20 精确打印输出的程序实现21 Delphi 应用程序中中国式报表的制作23 用Delphi 编写打印程序的窍门26 用Delphi 实现打印功能26 网络远程报表27 中国式报表29 Delphi 3中报表的制作 Borland Delphi是当今优秀的Windows可视化开发工具之一,今年5月份推出的Delphi3是一个真正的32位开发平台, 比Delphi2增加了不少定制控件。Delphi 3没有捆绑ReportSmith报表制作工具,但同时增加了Qreport组中报表制作控件 的功能,使制作报表更加方便灵活。在Delphi3中除了可以采用Qreport组中报表制作控件来制作报表外,还可利用打印机画 布直接向打印机输出报表。下面将详细介绍这两种方法。 用打印机画布制作报表 Delphi 引进了画布的概念,使向打印机输出和向屏幕的输出具有相同的方法,直接向打印机的画布输出线条和字符串,即可制作 出任意规格的报表。首先,把支持打印机的Printers单元手工加到uses域里,然后在打印事件中调用Tprinter 对象来制作报表。 下面我们来看一个实际例子。假设在当前Form1上有一按钮名为Print-rep;在Dialogs控件组选取一PrintDialog控件加到Form1 中,命名为printdg1;在Additional控件组中选取一StringGrid控件加到Form1中,命名为temsgrid1,设其网格为10行10 列,并假 设已完成了在temsgrid1控件中显示一 10 行10 列的数据库表数据的准备工作,然后在Print—repClick 事件中打印报表。程序 示例如下: procedure TForm1.Print-repClick(Sender:Tobject); var I,j,cp,ph,pw,w,h:integer; beginif printdg1.Execute then //打开打印对话框 begin for cp: 1 to printdg1.copies do //打印份数 begin with printer do begin orientation: poPortrait; //设置纵向打印方式 title: ‘打印报表例子’;//打印任务标题 pw: pagewidth;//获得当前设置的打印纸页宽 ph: pageheight; //获得当前设置的打印纸页高 h: 2104; w: 1488; begindoc;//开始打印 //下面画表格,先画11条横线 for I: 1 to 11 do begin canvas.moveto(100*pw div w,I*100*ph div h); canvas.lineto(1100*pw div w,I*100*ph div h); end; //再画11条竖线 for I: 1 to 11 do begin canvas.moveto(I*100*pw div w,100*phdiv h); canvas.lineto(I*100*pw div w,1100*ph div h); end;