编程论坛 → VFP论坛

如何用VFP代码控制EXCEL每页打印30条记录

王咸美发布于 2021-05-23 14:18， 1152 次点击

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

3 回复

sdta2021-05-23 14:22

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

xuminxz2021-05-23 15:20

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

schtg2021-05-24 05:35

学习啦，谢谢！