procedure TFrmDTWater.PrintGrid(GenStrGrid: TStringGrid; sTitle: String);
const
LeftBlank=1; //定义页边距,单位厘米
RightBlank=1;
TopBlank=2;
BottomBlank=2;
var
PointX,PointY:integer;
PointScale,PrintStep:integer;
s1,s2,s3:string;
x,y:integer;
i,k:integer;
begin
//横向打印
printer.Orientation:=poPortrait;
if PrintDialog1.Execute then
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.Canvas.Font.Name:='宋体';
printer.canvas.Font.Size:=16;
printer.canvas.Font.Style:=[fsBold];
//根据字体的大小确定每行的高度
s1:=Ttl;
PrintStep:=printer.canvas.TextHeight(s1)+16;
//打印的起点位置
x:=PointX*LeftBlank;
y:=PointY*TopBlank;
printer.BeginDoc;
//打印标题
x:=x+StringGrid1.DefaultColWidth*PointScale*2;
Printer.Canvas.TextOut(x+8,y+8,s1);
y:=y+PrintStep;
//打印日期
printer.Canvas.Font.Name:='宋体';
printer.canvas.Font.Size:=12;
printer.canvas.Font.Style := [];
//根据字体的大小确定每行的高度
s2:=FormatDateTime('yyyy-mm-dd',Date());
PrintStep:=printer.canvas.TextHeight(s2)+20;
x:=x+StringGrid1.DefaultColWidth*PointScale*3;
Printer.Canvas.TextOut(x+8,y+8,s2);
x:=PointX*LeftBlank;
y:=y+PrintStep;
打印数据
k:=0;
while k<=StringGrid1.RowCount do
begin
//打印中的所有列
for i:=0 to StringGrid1.ColCount-1 do
begin
//假如所要打印的列超出了打印范围,则忽略该列
if (x+StringGrid1.DefaultColWidth *PointScale)<=(Printer.PageWidth-PointX*RightBlank) then
begin
//画表格线
//每页的第一行打印表头
if k=1 then
printer.canvas.Font.Style:=[fsBold]
else
printer.canvas.Font.Style:=[];
if k<>0 then
Printer.Canvas.Rectangle(x,y,x+StringGrid1.DefaultColWidth
*PointScale+200,y+PrintStep);
if k<>0 then
Printer.Canvas.TextOut(x+8,y+8,StringGrid1.Cells[i,k]);
end;
//计算下一列的横坐标
x:=x+StringGrid1.DefaultColWidth*PointScale+200;
end;
{if not (y=PointY*TopBlank) then
k:=k+1;}
x:=PointX*LeftBlank;
y:=y+PrintStep;
//换页
if (y+PrintStep)>(Printer.PageHeight-PointY*BottomBlank) then
begin
Printer.NewPage;
y:=PointY*TopBlank;
end;
k:=k+1;
end;
//打印结尾字体和大小
printer.Canvas.Font.Name:='宋体';
printer.canvas.Font.Size:=15;
printer.canvas.Font.Style:=[fsBold];
s2:='标题';
x:=x+StringGrid1.DefaultColWidth*PointScale*3;
Printer.Canvas.TextOut(x+8,y+8,s2);
printer.EndDoc;
ShowMessage('开始打印...');
StatusBar1.Panels.Items[0].Text:='正在打印....';
//Timer1.Enabled:=true;
end;
end;