quickreport的问题，急！(100分)

L

ljduan371

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #1

制作一个报表，要求比较特殊，奇数页和偶数页的内容不同，现已解
决，但是碰到几个问题：
1、qreport中自代的预览可以正常预览，但是打印按纽按之后打印机
没有反应，但单独的print事件打印可以，不知何故。
2、如何将奇数页和偶数页的打印分开，即选中奇数打印相应的页，选中
偶数打印相应的页。
请各位高手帮忙！
另，我的mail: ljduan@371.net ，与各位大侠互相交流。

 

Z

zjok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #2

第一个问题我不会答你了
第二个吧
Var i：integer；
i:=页数
打印偶数的
if (i mod 2)=0 then

begin

QuickRep1.PageNumber:=i；
QuickRep1.print；
end

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-13

• #3

procedure TForm1.QuickRep1BeforePrint(Sender: TCustomQuickRep;
var PrintReport: Boolean);
begin
变量 置位
应该为0 置为0
应该为false 置为false
end;

 

L

ljduan371

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-18

• #4

hfghfghfg请说明白一点好吗？

 

P

phph

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-18

• #5

请单步调试程序，检查quickReport的OnNeddData事件的代码是否正确（如果不用
数据控件绑定，点击预览界面上的打印按扭应会调用此事件）。
再检查BeforePrint事件中的 PrintReport 是否为真。

 

H

hbezwwl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-18

• #6

1.这有时有QR的问题,你升级一下试试.
2.用一个循环中指定打印页,然后在循环中判断奇偶即可.

 

L

liuly

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-04-17

• #7

多人接受答案了。