在线等待中。。。。。。。。。如何打印显示在DBGRID中的数据(一经验证马上给分)(100分)

  • 主题发起人 主题发起人 daisyrose
  • 开始时间 开始时间
D

daisyrose

Unregistered / Unconfirmed
GUEST, unregistred user!
我使用ADOConnection、 ADOQuery、DBGrid的结构 数据源是SQL数据库,
我已经使用SQL语句将某表内容取出显示在DBGRID中,要怎样才能动态地将显示的数据打印出来呢?
我已经查过从前的相关帖子,据说FASTREPORT,ENLIB,QREPORT都可以做,可是我都没有成功,
我从前没有用过上述控件,所以也没有折腾出来,请用过的大侠指教。
 
前两种我没用过,拿QuickReport为例,你要把所有QuickReport控件的DataSet属性值设为
你的ADOQuery,并将ADOQuery打开,QuickReport里才能取得数据,而且,要移动ADOQuery
的光标,你的QuickReport里才能取得数据集里的各行记录。
 
那要怎样打印呢?我的问题不是显示而是打印哦,就是打印DBGRID,还要能自动分页等等
 
以下可以满足你:(记得给分)我在我的管理系统中使用的,没有问题。
procedure TMainForm.printdbgrid(var datasource1: tdatasource;
var dbgrid1: tdbgrid);
const //定义页边距,单位厘米
LeftBlank=1;
RightBlank=1;
TopBlank=1;
BottomBlank=1;
var
PointX,PointY:integer;
PointScale,PrintStep:integer;
s:string;
x,y,i:integer;
begin
Application.MessageBox('打印开始','打印',32);
//获取当前打印机的分辨率
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:=combobox1.text;
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
//(DataSource1.DataSet).DisableControls;
printer.begin
Doc;
//2002.50.28 新增 2句
printer.Canvas.TextOut(floor((printer.pagewidth)/2)-10,y,panel3.caption);
y:=y+printstep;
(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)+printstep then
//2002.5.28新增printstep
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;
(DataSource1.DataSet).EnableControls;
Application.MessageBox('打印完成','打印',32);
end;
end;
 
使用enlib方法如下:
1、首先确保你已正确安装了enlib[:)]
2、在form上放一个DBGridEh控件和个TPrintDBGridEh控件
3、将TPrintDBGridEh的DBGridEh属性设为上面的DBGridEh
4、使用TPrintDBGridEh的方法打印就可以了。
5、学习enlib的帮助
 
用FASTREPORT的类DBGRID控件一会就可以搞定
 
怎么说呢,不是一两句能说清的,建议你用Fastreport,但也不是一下子就能学会的,
得好好研究一下,查查资料,得耐心。
 

printer.Canvas.TextOut(floor((printer.pagewidth)/2)-10,y,panel3.caption);
中FLOOR是什么啊?过不去呀
 
你可以使用ReportMachine报表工具,很棒的,它提供了一个控件,设置几个属性就可以
直接打印DBGrid上的内容,不需要画报表,很方便的,我用过,你下载一个,安装上,
看看例子就明白了。
 
为什么不倒入到excel中再打印呢?
 
用FastReport的TfrPrintGrid组件就可以轻松搞定。
 
to zag2000:>ReportMachine的那个打印控件是什么啊?
to 天与地:>FastReport的TfrPrintGrid如何使用啊?
 
把FrPrintGrid的dbgrid指定,然后,
frPrintGrid1.ShowReport;
就可以搞定了,就这么简单。当然了,你要先装FastReport。
 
to 天与地:>不可以呀,报了好多错哦,我只是完全按照你的说法做上去的
 
我写了一个DBGridPrinter控件。
在www.playicq.com可以下载到最新版本。
支持本页合计,总合计。
等等。
http://www.playicq.com/dispdoc.php?t=19&amp;id=1979
 
DBGrid==>DBGrideh 不就完了吗。
 
to lindeping:>超出打印范围的不可以忽略的啊
to wr960204 :>装不上你的控件,是从组件-》安装里装吗?
 
to:daisyrose
你的DBgrid能正常显示吗?
报什么错误?
我的程序就在手边,可以运行的。
 
不可能吧!那里不是有一个安装包么?InStall不就行了
 
没有看到安装包啊,而且DEMO有问题打不开哦
 
后退
顶部