不看会后悔的Windows XP之经验谈	简单快捷DIY实用家庭影院

...高分请教dbgrid打印的问题，请大家指点，急呀，8号就要。。。。。。

楼主haohua（渴望成为高手的--菜鸟）2006-02-06 10:28:24 在 Delphi / 数据库相关提问

请问我如何打印dbgrid中的内容？我没有作过。请详细指点一下，谢谢了。。。问题点数：100、回复次数：10Top

1 楼zhangl_cn（和尚-修行）回复于 2006-02-06 10:47:45 得分 10

用rave或者其它的报表控件Top

2 楼fangerhua（绿野之狼）回复于 2006-02-06 10:52:49 得分 10

http://blog.china-pub.com/more.asp?name=fangerhua&id=25891Top

3 楼baronyang（魔蝎(交流QQ195428528)）回复于 2006-02-06 12:59:54 得分 10

dbgrid的内容也是dataset中的内容,用QuickReport 或 FastReport 或Rave都可以Top

4 楼lvjack（追逐梦想）回复于 2006-02-06 13:16:05 得分 10

ehlib中的dbgrideh
或者fr（FastReport ）有一个控件用来打印dbgrid内容的Top

5 楼happypzl（蓝天MM）回复于 2006-02-06 14:49:01 得分 10

做报表来打印就可以了！用FastReport 吧Top

6 楼haohua（渴望成为高手的--菜鸟）回复于 2006-02-06 17:04:37 得分 0

谢谢上面的朋友，

不过这些组件都没用过，能不能说详细一点。说一个大概的过程，谢了。
Top

7 楼luxuewei5214（小卢)(以下内容仅供参考）回复于 2006-02-06 17:27:43 得分 10

使用quickreport就可以了，使用方法可以看delphi带的demoTop

8 楼zzq4823（高原猫）回复于 2006-02-06 17:38:32 得分 10

用FastReport,有例子的，右键点击FastReport设置就行了Top

9 楼zahahui（zahahui）回复于 2006-02-07 11:15:53 得分 30

fastreport.

报表是预先做好的。

fastreport中，放一个master data,cross date,master header 两个交叉处放[Header] 和[cell]

procedure TqueryForm.BitBtn2Click(Sender: TObject);
begin
frUserDataset1.RangeEndCount := dbgrid1.FieldCount;
frUserDataset2.RangeEndCount := dbgrid1.FieldCount;
frReport1.ShowReport;
end;

procedure TqueryForm.frReport1GetValue(const ParName: String;
var ParValue: Variant);
begin
if ParName = 'Cell' then
ParValue := dbgrid1.Fields[frUserDataset1.RecNo].Value;
if ParName = 'Header' then
ParValue := dbgrid1.Fields[frUserDataset2.RecNo].FieldName;
end;

先试试。不行发个demo给你。Top

10 楼haohua（渴望成为高手的--菜鸟）回复于 2006-02-08 10:38:10 得分 0

谢谢大家，问题解决了。Top