如何用dbgrideh打印工资条(200分)

性别 年龄 籍贯 职称
a
b
c
要求打印下面成的样子
性别 年龄 籍贯 职称
a 21
性别 年龄 籍贯 职称
b 32
性别 年龄 籍贯 职称
c 21

更換報表程序就可以了。
FastReport

工资条上却没有薪水？

除非你把数据装进 DBGridEh 时,就是你要的那个结果的样子,否则BdGRidEh应该完成不了的,它就是个照着DBGRidEh中的样子原原本本地印出来.

试试 Grid++Report, 为 Delphi、C++Builder 编写专门的包装类，象使用 VCL 构件一样使用 Grid++Report。主页：http://www.rubylong.cn。将内容格设为自由格，排出你想要的效果。

我用Fastreoirt做了全组件，指定dbgrideh就可以按工资条格式打印了

"我用Fastreoirt做了全组件"
可不可以把你的组件传给我看看
lling4@163.com

好好看看下面的程序，或许对你有帮助：
〉〉〉〉〉〉〉
首先在窗体上添加一个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;