思路是一样的。把DBGrid改为StringGrid就可以了。
也谈为Delphi中数据库报表加网格
林育全
--------------------------------------------------------------------------------
看了贵报第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.begin
Doc;
(DataSource1.DataSet).First;
while not (DataSource1.DataSet).Eofdo
begin
//打印DBGrid中的所有列
for i:=0 to DBGrid1.FieldCount－1do
begin
//假如所要打印的列超出了打印范围，则忽略该列
if (x＋DBGrid1.Columns.Items.Width＊PointScale)〈=(Printer.PageWidth－PointX＊RightBlank)
then
begin
//画表格线
Printer.Canvas.Rectangle(x,y,x＋DBGrid1.Columns.Items.Width＊PointScale,y＋PrintStep
);
//每页的第一行打印表头
if y=PointY＊TopBlank then
Printer.Canvas.TextOut(x＋8,y＋8,DBGrid1.Columns.Title.Caption)
else
Printer.Canvas.TextOut(x＋8,y＋8,DBGrid1.Fields.asString);
end;
//计算下一列的横坐标
x:=x＋DBGrid1.Columns.Items.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;
