打印预览(200分)

L

Lihang001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-05

• #1

各位老兄：
在下想请教QuickRep与QRPreview控件是怎样实现连接的？
我主要是想自定义预览的界面，如蒙赐教，不甚感激！


200分奉送，了表心意，请笑纳！

 

Y

yaya8163

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-05

• #2

请在论坛中用预览搜索一下。收回你的分。

 

L

LanFairy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #3

QRPreview1.QRPrinter:=QuickRep1.QRPrinter;

 

陈

陈健松

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #4

在QuickRep1的OnPreview的事件中将QuickRep1的报表指针传给QRPreview1的报表指针：
QRPreview1.QRPrinter:=QuickRep1.QRPrinter;

 

L

LanFairy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #5

小陈同志终于见到你了，你好，为什么没给我发邮件

 

Y

yaya8163

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #6

怎么还没搞定
发个列子给你收好!

 

Y

yaya8163

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #7

怎麽搞得lihang001@sohu.com信箱有误

 

B

bald_eagle

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #8

1.首先在自己的报表窗体中引用字定义的预览窗体单元。

2.在interface部分的uses中引用qrprntr单元（系统本身的）。

3.在自己报表的OnPreview事件中添加以下代码：
application.CreateForm(Tmypreview,mypreview);
mypreview.QRPreview1.QRPrinter := TQRPrinter(Sender);
mypreview.CurRep := self;
Mypreview.show;
mypreview是你自定义的预览窗体。

 

H

htw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-06

• #9

1.新创建一个窗体文件,设置其name为:QRStandardPreview,
再将此单元文件另存为 : qrprev.pas, 同时也生成一个dfm 文件: qrprev.dfm
假定所存目录为c:/www
2.关闭窗体文件.
3.然后将/borland/delphi5/lib/qrprev.dfm拷到步骤1生成的文件所在目录,
将c:/www/qrprev.dfm文件覆盖掉.
4.再次打开c:/www/qrprev.pas, 然后直接修改窗体属性即可,
注意:　1）有的panel可能被锁定, 修改autosize即可搞定；
2）不能修改原来控件的Name
5.c:/www/qrprev.dfm拷入/borland/delphi5/lib/qrprev.dfm。

以后你编译一个文件，可以在正式运行时看到界面已经按你的要求做了

另外说一句： 你可以自己做一下较通用的打印预览界面。
另外再说一句：delphi的打印控件很好，QR只是其中一个，请搜索或另提问。
我的话讲完了！

 

L

Lihang001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-04-10

• #10

多人接受答案了。