标题:如何用VFP代码控制EXCEL每页打印30条记录
只看楼主
王咸美
Rank: 1
等 级:新手上路
帖 子:569
专家分:0
注 册:2018-1-4
结帖率:96.99%
已结贴  问题点数:20 回复次数:3 
如何用VFP代码控制EXCEL每页打印30条记录
我想用VFP代码控制EXCEL每页打印30条记录,不知代码如何写,请高手赐教,万分感谢!!!
搜索更多相关主题的帖子: 控制 VFP 记录 代码 打印 
2021-05-23 14:18
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:5 
通过调整行高来设置每页打印的行数

坚守VFP最后的阵地
2021-05-23 14:22
xuminxz
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:贵宾
威 望:40
帖 子:749
专家分:2475
注 册:2011-5-8
得分:15 
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

dBase有人接盘了。
2021-05-23 15:20
schtg
Rank: 11Rank: 11Rank: 11Rank: 11
来 自:https://t.me/pump_upp
等 级:贵宾
威 望:67
帖 子:1355
专家分:2534
注 册:2012-2-29
得分:0 
学习啦,谢谢!
2021-05-24 05:35



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-505824-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.014964 second(s), 8 queries.
Copyright©2004-2025, BCCN.NET, All Rights Reserved