我想用VFP代码控制EXCEL每页打印30条记录，不知代码如何写，请高手赐教，万分感谢！！！

通过调整行高来设置每页打印的行数

CREATE CURSOR tmp (xh i,sj c(10))
cbg=ASC('啊')-1
FOR i=1 TO 93
    APPEND BLANK
    REPLACE xh WITH i,sj WITH CHR(cbg+i)

endfor

orsxl=CREATEOBJECT('excel.application')
orsxl.Visible=.t.
orsxl.Application.WorkBooks.add
FOR i=1 TO RECCOUNT()
    GO i
    orsxl.cells(i,1).value=xh
    orsxl.cells(i,2).value=sj
ENDFOR
yms=INT(RECCOUNT()/30)
FOR i=1 TO yms
    orsxl.Rows(i*30+1).PageBreak=1  &&&这一行
endfor

学习啦，谢谢！