如果能对当前的信息进行单独的打印？(100分)

X

xyt3dnow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-26

• #1

在qreport中，使用form2.quickrep1.preview进行数据浏览时，就会把整个query的数据
显示去来，打印时要找到具体的数据，而且还要设定只打当前页，有什么语句可以控制
只是打印当前query显示中的一条信息？

 

I

icelake

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-26

• #2

最好在query中设置filter，如果在qreport中处理效率可能低一些

 

X

xyt3dnow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-26

• #3

有没有例子看看？

 

M

mlzhou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-26

• #4

用filter，让数据集只有当前记录
如：
with adoquery1do
begin
nowid :=fieldbyname('id').asstring;
filter := 'id='+''''+nowid+''''
Filtered := true;
end;

 

Y

yourice

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-26

• #5

在DetailBand的BeforePrint事件中加入quickrep1.NewPage;就能每页只是显示/打印当前
query中的一条信息，可以在预览时进行打印设置打印范围或者在QuickRep的BeforePrint
事件加入代码
quickrep1.Prepare;
pageno:=quickrep1.Printer.PageNumber;
quickrep1.PrinterSettings.FirstPage:=pageno;
quickrep1.PrinterSettings.LastPage:=pageno;
quickrep1.PrinterSettings.ApplySettings(quickrep1.Printer);
（不过不知为什么pageno不是当前页，总是最后页）

 

X

xyt3dnow

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-26

• #6

接受答案了.