报表打印每页行数的问题(很急)

supercctv 2003-03-02 11:05:16
me打印一个药品销售单,使用自定义纸张,可是无论是再预览还是在执行打印时都只能每页打印一条记录.me想每页打印5条记录,怎么办?

在beforeprint事件中使用下列代码无效.
Static int iCount=0;
iCount++;
if(iCount>5) //设每页只打印10行,可根你的情况改动
{
iCount=0;
PrintBand=false;
QuickRep1->NewPage();
}
else
{
PrintBand=true;
]
...全文
51 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
cyg1dm 2003-03-02
  • 打赏
  • 举报
回复
我做过这样的程序要的话留下MAIL
supercctv 2003-03-02
  • 打赏
  • 举报
回复
还有一个忘了,我使用的是access数据库.
WebEtCell 2003-03-02
  • 打赏
  • 举报
回复
用EtCell报表控件/插件是个不错的选择!
http://www.etcell.com/

在线例子:http://www.etcell.com/Samples/
本想自动读取报表的纸张大小,但返回来值都是默认纸张的大小,所以用了
Selest case 词句,但这样结果是纸张的类型不齐全。没有类型对应的纸张的在大小不能正确判断(此情况下,如果提供的参数不正确,报表结果将会变乱。此时只要调整一下参数。即得到正确的报表。)。如果有谁能解决此问题,请告知一声。

以下为新的函数说明:
==============================================================
函数名:RepDetail_Format()
调用报表必须使用控件:(文本框)
txtRecord_NO 在主体节 可见 用于显示记录号,可选
txtTotGrp 在主体节 不可见 =Count(*) 用于取得报表的总记录数,必须
txtCurrentPage 在主体节 不可见 =[Page] 用于取得当前页数,必须

参数说明: RepName 报表名称 (当前报表可用 (Me), 其它报表可用:(Reports.报表名)引用),必须
txtCurrentPage 报表主体节上的[txtCurrentPage]文本框控件 ,必须
txtRecordNum 报表定义的私人变量 数据类型:Integer 用于记录数的递增,必须
(注:在报表模块顶部声明 : Private txtRecordNum As Integer )
txtTotGrp 报表主体节上的[txtTotGrp]文本框控件 ,必须
IntPrintLen 报表打印的行数。
-----数据类型:Integer (注:不可超过每页允许的最大记录数),可选,(默认:25 行)
DouPageLine 报表主体记录部分打印长度。
-----数据类型:Double (注:不可超过每页允许的最大记录数),可选,(默认:21 CM )
FontSize 报表记录部分字号。
-----数据类型:Integer (注:不可超过每页允许的最大记录数),可选,(默认:0 字号不变)
txtRecord_NO 记录序号文本框名称。
-----数据类型:String (注:不可超过每页允许的最大记录数),可选,(缺省为没有使用)


使用方法:
1,先定义一私人变量:Private txtRecordNum As Integer,必须
2,报表主体节的格式化事件中调用(Detail_Format 事件)

调用方法:NextRecord=RepDetail_Format(RepName , txtCurrentPage.text , txtRecordNum , txtTotGrp.text , IntPrintLen)
使用示例:NextRecord = RepDetail_Format(Me, [txtCurrentPage], txtRecordNum, [txtTotGrp], 20)
本函数由 binuochao (许伟军) 完成。制作于2003-06-27 Email:binuochao@sina.com.cn QQ:10077241


=============================================================  

13,871

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder相关内容讨论区
社区管理员
  • 基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧