delphi7中的打印如何实现?急.....(100分)

在DELPHI7中打印控件和6中的完全不一样,请哪位高手略指点一二.
想象中应该比6中开发报表更加容易一些,可就是不会用...

你进入全文检索，按"报表 and DELPHI7"查询，答案就有了。

其实 D7中也有Qreport.

用Delphi编写打印程序的窍门

如果你想自己用Delphi编写一个打印程序，那么，下面这些技巧或许对你有所帮助。
1.获娶显示当前打印机的分辨率
Windows下的打印分辨对打印程序有着至关重要的作用，如果你想知道打印机的分辨率，请在程序中加入一行：ShowMessage(′水平分辨率′＋inttostr(GetDeviceCaps(printer?Handle
LOGPIXELSX))＋chr(13)＋′垂直分辨率：′＋inttostr(GetDeviceCaps(printer?Handle
LOGPIXELSY)));结果就一目了然了。
2.将结果直接送到打印机
Delphi提供了两种打印方式：一是将结果输送到Form，再调用Form的print方法将结果输送到打印机，二是将结果直接输送到打印机。如果你采用第一种方式，则无论你怎样调整Form的PrintScal属性，打印出来的东西也不会让你满意。因此建议采用第二种方式。
3.尽量不要使用AssignPrn
尽管AssignPrn简化了文本打印操作，使输出到打印机像输出到文件一样简单。但简单带来的是一系列的不方便：你无法知道当前打印的行数，无法准确控制行距，无法灵活改变字体字形等等。还是用打印机的Canvas属性进行打印吧。
4.用打印机的点数做度量单位
如果想让打印程序在任何打印机上都能正常地打印，你就必须改变你的度量单位。如果采用固定的度量，不同分辨率的打印效果是不同的。举例来讲：printer?Canvas?rectangle(0
0
360
720)在360×360的佳能4200SP上能打出一个1英寸宽、2英寸高的矩形，但在600×600的惠普6L上只能打出0?6英寸宽、1?2英寸高的矩形。使用打印机的点数做为度量单位是一个明智的选择。具体做法如下：VarPointX
PointY:integer;PointX:=GetDeviceCaps(printer?Handle
LOGPIXELSX);PointY:=GetDeviceCaps(printer?Handle
LOGPIXELSX);printer?Canvas?rectangle(0
0
PointX＊1
PointY＊2)这样，无论你使用什么样的打印机，都能得到一个1英寸宽、2英寸高的矩形。
5.添加打印程序单元
尽管Delphi在生成窗体时会自动在USES部分加入许多程序单元，但打印程序单元(Printers)却不在之列，要想使打印机正常工作和程序不出错，你还是老老实实手工给它加上吧。

d7中的打印用RAVE，也有QREPORT，只是没有安装。

rave控件，感觉比qreport还要好用，
我正在使用中，可以一块探讨一下

我也有这个问题，请各位多多帮忙，如果解决了，我也可以给分
谢谢
谢谢

[]

楼上的哥哥们，介绍一下 Delphi7.0 中Rave 的用法呗

delphi7.0在初始化是没有按装这个打印包,你得自己添加.delphi菜单中componet->packages->add->bin->dclqrt70.bpl->OK了
这样，你就可以在你的控件内找到quickreport标签栏了，就可以做打印表单了，我就是这样做的报表，与delphi6的用法一样。
解决了。

rave的使用

RvSystem.DefaultDest:=rdprinter;//设置输出目标为打印机
RvProject.SelectReport('ajml',false);//选择报表名
RvProject.Execute;
设置打印
RvSystem.DefaultDest:=rdpreview;
RvProject.SelectReport('qyml',false);
RvProject.Execute;
;//设置打印预览

重要属性：rvproject.engine:=rvsystem
rvsystem.allowsetup:=false;//取消自带的英文打印界面

PrintDialog.execute;

PrintDialog.属性=rvsystem.属性//定制自己的打印设置
PrinterSetupDialog1.Execute;//打印机属性