如何设置每页的行数，我想打印每页20条记录。并且要打印标题，如：政府采购项目审批查询记录

我用VFP调用EXCEL,生成报表，如何设置一下行数和标题。注明一下：我让EXCEL后台工作，不需要用户调整行数和输入标题




[ 本帖最后由 YZCZWCB 于 2010-1-15 13:42 编辑 ]

要想保证每页20条记录，并报表美观，最好是预先建立一个Excel文档，将标题、每页行数和各种格式都设定好了，保存起来。然后用VF根据它复制一个文件，打开，将数据填入再打印。这样可能会简单一点。

楼上的思路不错。但是有个不确定的因素：用户想显示或打印的字段不确定，要根据用户的需要而选择字段。所以固定的EXCEL格式不可取。

我的解决办法：

标题：用VFP生成EXCEL后，再第一行前插入一行，再算出总列数--合并--变量填入标题名--居中

每页的行数：用VFP生成EXCEL后，算出总行数--计算每页行数的倍数(不足倍数加空行)--插入分页符--插入页脚

*-----------设置标题栏
WCB_excel.Rows(1).Insert() &&在第一行前面插入一行
ROW=WCB_excel.sheets(1).UsedRange.ROWS.COUNT    &&有数据的总行数
COLUM=WCB_excel.sheets(1).UsedRange.COLUMNS.COUNT &&有数据的总列数
*------------取得总列数合并
IF COLUM<=25
   ZCOLUM="ABCDEFGHIJKLMNOPQRSTUVWXYZ"     && &&设置25个列，用SUBstr()截取列符号，A,B,C,D....
   lfh=ALLTRIM(SUBSTR(ZCOLUM,colum,1))
ELSE
   ZCOLUM="A B C D E F G H I J K L M N O P Q R S T U V W X Y ZAAABACADAEAFAGAHAIAJAKALAMANAOAPAQARASATAUAVAWAXAYAZ"     &&注意：Z后面减去空格。设置50个列，用SUBstr()截取列符号，AA,AB,AC,AD...
   lfh=ALLTRIM(SUBSTR(ZCOLUM,2*colum,2))
ENDIF
dygfh="A1:"+LFH+"1"
WCB_excel.range(dygfh).Select   &&选择标题栏所在单元格
WCB_excel.Selection.Merge    &&合并单元格
With WCB_excel.range("A1 ")   &&设置标题及字体属性
  .value='政府采购数据查询表一'    &&可用变量替换
  .Font.Name="黑体"
  .Font.size=18
  .horizontalAlignment = 3   && 水平居中排列
ENDwith
*-----------

[ 本帖最后由 YZCZWCB 于 2010-1-16 12:02 编辑 ]

用“ ZCOLUM="ABCDEFGHIJKLMNOPQRSTUVWXYZ"     && &&设置25个列，用SUBstr()截取列符号，A,B,C,D....
   lfh=ALLTRIM(SUBSTR(ZCOLUM,colum,1))”的办法太那个了，有大师给出了好方法，请楼主参考：
http://bbs.

STRTRAN(eole.cells(eole.activesheet.UsedRange.COLUMNS.COUNT).address(,.F.),"$1")


谢谢，真是好办法