QuickReport的打印问题(100分)

Z

zz_guang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #1

修改别人做的程序，要加强打印功能，遇到了难题，请各位高手帮忙解决一下。

1、绑定一个DATASET,print时共打印出一百页，现在需要指定打印页，
　　例如要打印第50－70页，该怎么做。
　　要注意的是：每个打印的页面都有页码，页码不能错，还得是原来的50－70。
2、打印时，需要指定打印的初始页码，
　　例，正常时打印出10页，页码依次为1－10，现在要由用户指定初始的打印页码，
　　　　若用户指定初始打印页码为5，则打印出来的页码分别为5－15。

 

D

dongberlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #2

请试一下
QuickRep1.Prepare;
QuickRep1.PrinterSettings.FirstPage:=YourNeed.
QuickRep1.PrinterSettings.LastPage:=YourNeed.

 

U

ugvanxk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #3

Quickrep1.preview;
预览中有打印机设置，自己可以选择范围的打印

 

Z

zjok

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #4

1.如dongberlin所说试试，我没试过
2.还是很容易吧
procedure TForm1.QRSysData1Print(sender: TObject;
var Value: String);
begin

value:=inttostr(strtoint(value)+youneed);//youneed是你的起始值
end;

 

Z

zz_guang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-12-18

• #5

dongberlin所说的方法我是用过的，每次都是调PREVIEW来查看结果，每次都不行。
　　很偶尔地调了一次PRINT，却输出了正确的答案，真是气人。

zjok：很奇怪，我的QRSysData1Print竟然不执行，新做了一个例子是可以的，
　　大概是我的程序哪里有问题，我再检查一下吧

问题解决了，谢谢大家！