限定多页报表的行数并在不足时补充空行

本想自动读取报表的纸张大小，但返回来值都是默认纸张的大小，所以用了
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

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝