報表預覽放大問題 .我是用DELPHI6.0. 高手快來幫我看看! 謝謝 (20分)

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #1

我用delphi自帶的QuickRep1做報表，在預覽時按放大按鈕怎樣能夠放大到200%呢？甚至更大呢？

 

M

marco_hsu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #2

需要自己写个中文的预览界面,通过更改QRPREVIEW控件的ZOOM属性可以实现你要的功能

 

J

jarvis100

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #3

用QuickRep的话那只有自己写预览窗口了,再在QuickRepPreview中SHOW你的窗口

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #4

TO:jarvis100,marco_hsu
自己怎麼寫呢？請高手指點!

 

M

marco_hsu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #5

你用'自定义预览窗口'作为关键字搜索一下,可以搜出很多例子

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #6

TO:marco_hsu
我已經搜索一下! 但是還是不明白怎麼做! 請詳細告訴我建立步駐，謝謝!

 

M

marco_hsu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #7

你照着他上面一步一步做就可以了,他的实现原理就是用QRPREVIEW作为QRREPORT的预览载体

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #8

TO:TO:marco_hsu
是這個帖子嗎？http://www.delphibbs.com/delphibbs/dispq.asp?lid=583433
但是我不知道rpt，prv等表示什麼!

 

M

marco_hsu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #9

不是的,你用GOOGLE或WWW.BAIDU.COM,搜才可以的

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #10

TO:marco_hsu
我正在看，謝謝!
能傳一個寫好的例子給我嗎？fwcy@sohu.com

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #11

TO:marco_hsu
我看的不太明白，按他的步驟做不了!
你有寫好的嗎？ 請傳給我! -----fwcy@shou.com
謝謝!

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-27

• #12

TO:marco_hsu
是下面的嗎？通不過! 請把寫好的傳我好嗎？
http://grace7450.xiloo.com/Document/Print/013.htm
請各位高手參考上面網址文章，寫好後傳我! 萬分感謝! fwcy@sohu.com

 

H

hotboys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #13

完整例程如下，可以給我分了吧？
procedure TqrBaseReport.Show_10Click(Sender: TObject);　//菜單
begin
show_10.checked := false;
show_20.checked := false;
show_50.checked := false;
show_75.checked := false;
show_100.checked := false;
show_150.checked := false;
show_200.checked := false;
show_400.checked := false;
(sender as TMenuItem).Checked := true;
if sender = show_10 then
//10%
QRP_print.Zoom := 10 //QRP_print為Tquickreport
else
if sender = show_20 then
//20%
QRP_print.Zoom := 20
else
if sender = show_50 then
//50%
QRP_print.Zoom := 50
else
if sender = show_75 then
//75%
QRP_print.Zoom := 75
else
if sender = show_100 then
//100%
QRP_print.Zoom := 100
else
if sender = show_150 then
//150%
QRP_print.Zoom := 150
else
if sender = show_200 then
//200%
QRP_print.Zoom := 200
else
if sender = show_400 then
//400%
QRP_print.Zoom := 400;
end;

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #14

TO:hotboys
你這段代碼在哪裡寫？ 是用delphi自帶的QuickRep嗎？這個Tquickreport我的delphi上怎麼沒有呀？
通過啦分肯定全部是你的啦!

 

H

hotboys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #15

完整單元代碼如下：要是再有看不懂的，你就。。。。
首先新建一窗體（TForm),在其中加入一QRPreview(在QReport頁面上).然後，就是下面了，趕快看。

 

H

hotboys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #16

哦，忘了，你要在你的報表預覽窗中uses這個單元(FBaseReport)，然後在TQuickRep的OnPreview事件中寫入如下代碼：
procedure TQuickReport.QuickRepPreview(Sender: TObject);
begin

with TqrBaseReport.Create(Application)do
begin
Qrp_Print.QRPrinter :=Self.QRPrinter ;
show;
end;

end;

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #17

TO:hotboys
還是有點問題。 你把寫好的EMAIL給我!
fwcy@shou.com
通過後就結貼啦!

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #18

TO:hotboys
不行，通不過。請EMAIL給我! fwcy@sohu.com

 

H

hotboys

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #19

不會吧，先生。不過我的系統是繁體的，mail給你可能也不行，你看出錯在哪一行，再聯絡我。

 

W

weifang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-28

• #20

TO:hotboys
老兄，我按你做的! 再把你的代碼全部復制的! 可是根本就不能調試! 你通過了沒有？
你發我信箱! 我也是繁體的!