也谈为Delphi中数据库报表加网格

2008-04-09 04:17:19来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

  看了中国计算机报第63期《为Delphi 3.0中数据库报表加上网格线》一文,笔者发现原文中的程序在不同分辨率的打印机(如180dpi的针式打印机和600dpi的激光打印机)上打印表格,效果会完全不同。如作者以针打作为他的输出打印机设计的程序,在激光打印机上输出,就会发现表格和文字错位,而且表格会打印得很小。而且原文中打印坐标的确定,必须靠反复的试验才能达到比较满意的效果。

  针对原目标,笔者设计了一段程序。首先在窗体上添加一个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中的消息处理

下一篇:Delphi3数据库编程中的查找字段