如何在打印时做到"第m页/共n页"的形式?我用的是quickreport如下:
myprnt.qr.prepare;
myprnt.qr.qrlabel1.caption:=inttostr(myprnt.qr.pagenumber)+'/'+inttostr(myprnt.qr.printer.pagecount);
myprnt.qr.preview;
结果,无论有多少页,两个数始终都是一样大!不知为什么?
myprnt.qr.prepare;
myprnt.qr.qrlabel1.caption:=inttostr(myprnt.qr.pagenumber)+'/'+inttostr(myprnt.qr.printer.pagecount);
myprnt.qr.preview;
结果,无论有多少页,两个数始终都是一样大!不知为什么?
解决方案 »
- delphi的双引号替换为单引号的问题
- 请Delphi版朋友轻点鼠标帮忙投上你宝贵的一票,剪刀有礼了(散3000分)
- 哪位能详解一下“1158 当前进程已使用了 Window 管理器对象的系统允许的所有句柄。”
- 6年经验的DELPHI程序员的薪水在上海北京深圳应该是多少?
- 在字符串中寻找字符函数
- 如何在delphi中使用 MSXML
- With ... do 的作用?
- 请问那里有:能支持关键字突出显示的编辑框控件?
- 你们的Delphi是企业版的还是个人版的,有没有中文补丁可以下载啊?
- 能装delphi 和tadvstringgrid控件
- 如何保持数据的完整性啊
- 如何在delphi中使用dso连接olap服务器,进行角色管理?
代码如下:
QuickRep1.Prepare ;
QrLabel18.Caption := IntToStr(QuickRep1.QRPrinter.PageCount);
QuickRep1.QRPrinter.Free ;
QuickRep1.QRPrinter :=Nil;
QuickRep1.Preview ;其中,QrLabel18显示的是总页数,然后在增加一个QRSysData1,它的Data属性设置为qrsPageNumber,显示的是当前页,这样就OK了。
解决了问题别忘记给分哦!^Q^