我在用QuickRep作一个报表，我想让它只能预览， 不能打印，可能吗？(100分)

我在用QuickRep作一个报表，我想让它只能预览， 不能打印，可能吗？

能，用QuickReport中带的自定义报表预览控件。

自己用QrPreview作preview Form。
一个QrPreview，几个按钮就行了。
在你的QuickRep Preview中加入
procedure Trepform1.QuickRep1Preview(Sender: TObject);
begin
zoomform1.QRPreview1.qrprinter:=TQRPrinter(Sender);
zoomform1.show;
end;
调用报表Preview就显示自己作的Preview表单。
Preview Form中就一个QrPreview和几个你自己想要的功能按钮。
给你写几个简单的。界面作PP点，想要什么功能，自己加。
procedure Tzoomform1.SpeedButton9Click(Sender: TObject);
begin //关闭
close;
end;

procedure Tzoomform1.SpeedButton1Click(Sender: TObject);
begin //还原
QRPreview1.zoom:=100;
end;

procedure Tzoomform1.SpeedButton2Click(Sender: TObject);
begin //放大
if QRPreview1.zoom<390 then
QRPreview1.zoom:=QRPreview1.zoom+10
else showmessage('已放大到最大');
end;

procedure Tzoomform1.SpeedButton3Click(Sender: TObject);
begin //缩小
if QRPreview1.zoom>10 then
QRPreview1.zoom:=QRPreview1.zoom-10
else showmessage('已缩小到最小');
end;

procedure Tzoomform1.SpeedButton4Click(Sender: TObject);
begin //打印设置
QRPreview1.QRPrinter.PrintSetup;
end;

procedure Tzoomform1.SpeedButton8Click(Sender: TObject);
begin //下一页
with Qrpreview1 do
begin
if pagenumber=Qrprinter.pagecount
then showmessage('已到最后一页')
else pagenumber:=pagenumber+1;
end;
end;

procedure Tzoomform1.SpeedButton7Click(Sender: TObject);
begin //上一页
with Qrpreview1 do
begin
if pagenumber=1
then showmessage('已到第一页')
else pagenumber:=pagenumber-1;
end;
end;

用QuickReport中带的自定义报表预览控件预览时，
不是有一个打印按钮吗，我想让那个按钮无效。

》》不是有一个打印按钮吗，我想让那个按钮无效。

我也这样想 大概要修改源码！

up

用QuickReport的preview不能只预览，不打印；
必须使用QRPreview,但此控件好象有严重的内存泄露问题，在codeguard下提示有好大
的泄露，而我可以保证自己这边没有问题，那么就只有控件的问题了。

只能查看，不能打印。可以吗？

to jrq:怎么修改源码！
to hawkfly:没有过这个，QRPreview
怎么用，下午我要交差了,帮帮忙!

to gxsmallboy:
修改borland/delphi5/lib/qrprev.dfm
************************
object Print: TToolButton
Left = 208
Top = 0
Hint = 'Print'
Caption = 'Print'
Enabled = False
ImageIndex = 8
visible = False //加入这样一行？？？、、、、
OnClick = PrintClick
end
*********************************

to gxsmallboy:
我来拿分了，查找一下qrprev。dfm文件，打开就可以修改界
面了，包括汉化（修改hint）。

在我这里用PREVIEW可以打印
而用PREVIEWMODAL，打印按钮不可点
我想在PREVIEWMODAL时，可打印都不知道该如何做。。。。

用QRPreview这个时为什么老是跳动
有时候不能预览

to xianghb, 我想有时候可打印，有时候不能怎么办？
用QRPreview老是非法操作。不懂为什么？

在beforeprint 處理

goddy:
怎么处理。

：goddy, 不行，预览不到
用QRPreview第一次预览行，第二次不行

report.preview;//
report.previewModal;//无打印
report.previewModeless；//无打印

多人接受答案了。

楼上的GanQuan老兄说的“zoomform1.QRPreview1.qrprinter:=TQRPrinter(Sender);”
但不知道“TQRPrinter”在哪个包含文件里啊，我按照写了你的代码，但程序提示“TQRPrinter”
没有定义啊。

我还想问一下各位大虾，通过修改源码，能不能屏蔽掉打印按纽的单击事件呢？如果
能，该怎样修改啊。