也谈为Delphi中数据库报表加网格
2008-04-09 04:17:19来源:互联网 阅读 ()
针对原目标,笔者设计了一段程序。首先在窗体上添加一个DBGrid来显示我们所要打印的数据,在这里,DBGrid不只是起到显示数据的作用,而且用户对DBGrid作的调整,例如改变了各字段的排列顺序,各字段的显示宽度等,都将直接反映到打印结果中去,也就是说,我们实际上就是要把DBGrid的内容直接输出到打印机。以下程序在Win 98 Delphi 4下编译通过,代码如下:
procedure TForm1.Button2Click(Sender: TObject);
const
LeftBlank=1; //定义页边距,单位厘米
RightBlank=1;
TopBlank=1;
BottomBlank=1;
var
PointX,PointY:integer;
PointScale,PrintStep:integer;
s:string;
x,y:integer;
i:integer;
begin //获取当前打印机的分辨率
PointX:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)/2.54);
PointY:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSY)/2.54);
//根据打印机和屏幕的分辨率计算出从屏幕转换到打印机的比例
PointScale:=Trunc(GetDeviceCaps(Printer.Handle,LOGPIXELSX)
/Screen.PixelsPerInch 0.5); //横向打印
printer.Orientation:=poLandscape;
//打印的字体和大小
printer.Canvas.Font.Name:=′宋体′;
printer.canvas.Font.Size:=10;
//根据字体的大小确定每行的高度
s:=′漳州市刑警支队′;
PrintStep:=printer.canvas.TextHeight(s) 16;
//打印的起点位置
x:=PointX*LeftBlank;
y:=PointY*TopBlank;
//DataSource1是DBGrid1所连接的数据源
if ((DataSource1.DataSet).Active=true) and ((DataSource1.DataSet).RecordCount〉0) then
begin
printer.BeginDoc;
(DataSo e1.DataSet).First;
while not (DataSource1.DataSet).Eof do
begin //打印DBGrid中的所有列
for i:=0 to DBGrid1.FieldCount-1 do
begin
//假如所要打印的列超出了打印范围,则忽略该列
if (x DBGrid1.Columns.Items[i].Width*PointScale)〈=(Printer.PageWidth-PointX*RightBlank) then
begin //画表格线
//每页的第一行打印表头
Printer.Canvas.Rectangle(x,y,x DBGrid1.Columns.
Items[i].Width*PointScale,y PrintStep);
if y=PointY*TopBlank then
Printer.Canvas.TextOut(x 8,y 8,DBGrid1.Columns[i].Title.Caption)
else
Printer.Canvas.TextOut(x 8,y 8,DBGrid1.Fields[i].asString);
end; //计算下一列的横坐标
x:=x DBGrid1.Columns.Items[i].Width*PointScale;
end;
if not (y=PointY*TopBlank) then
(DataSource1.DataSet).next;
x:=PointX*LeftBlank;
y:=y PrintStep; //换页
if (y PrintStep)〉(Printer.PageHeight-PointY*BottomBlank) then
begin
Printer.NewPage;
y:=PointY*TopBlank;
end;
end;
printer.EndDoc;
(DataSource1.DataSet).First;
Application.MessageBox(′打印完成′,′打印′,32);
end;
end;
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
上一篇:Delphi中的消息处理
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash