为何QRPreview1无法预览我的打印数据,请高手指点.(20分)

D

decade

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #1

部分代码如下:
AduitingAchiRp: TQuickRep;
myprvi:=class(Tform)
..
QRPreview1: TQRPreview;
.
public
{ Public declarations }
CurRep : TQuickRep;
end
....
procedure TA_AuditingAchiRPFrm.AduitingAchiRpPreview(Sender: TObject);
begin
myprvi.QRPreview1.QRPrinter:=myprvi.CurRep.Printer;
myPrvi.Showmodal ;
end;
在另一个form里,有一个按钮:
里面有如下代码
myprvi.CurRep:=A_auditingAchiRpFrm.AduitingAchiRp;
myprvi.CurRep.Preview;
//currep:

 

L

lop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #2

唔识。

 

N

ngdsjck

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-10

• #3

procedure TA_AuditingAchiRPFrm.AduitingAchiRpPreview(Sender: TObject);
begin
myprvi.qrpreview1.qrprinter:=myprvi.currep.qrprinter;
myprvi.showmodal;
end;
在另一个FORM里，该按钮的代码
currep.preview;

 

D

decade

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-11

• #4

to:Ngdsjck,你的代码所起作用,和我一样,还是不能预览...只显示了有 myprvi form
里面没数据.

 

V

vxdwan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-18

• #5

myprvi.show;
预览窗口不能用Showmodal,为什么我也弄不清.

 

Y

ynjt

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-19

• #6

用Showmodal只能显示当前窗体，而不能再激活其他窗体。建议用show.

 

D

decade

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-08-17

• #7

多人接受答案了。