*!*
能否用程序把分页符加上去?
*!*
现在可以用程序把DBF文件转化为电子表格,能否根据不同单位分别加上分页符分页打印?
*!*
单位少可用手工,但单位有几百个无法用手工,能否用程序给它加上去?
*!*
现在对DBF转为电子表格研探不少主要是各种格式的讨论,现有一个棘手的问题:
*!*
转化后我要根据按单位不同进行分页打印,在VFP中顺利地可以办到,可采用数据分组方法。
*!*
但转为电子表格后如果单位少那手工搞一下插入分页符,但单位多有上百个以上那无法用手工的方法。
*!*
我查了张洪举先生编的书中(常用EXCEL对象的OLE控制语句)提到插入分页符那只有在“第xx行以前插入分页符”。
*!*
也没有根据单位不同来插入分页符的语句,每单位数量是不同的无法确定第几行前插入分页符。
*!*
如何不解决这个具体问题那转成电子表格也没多大作用。不知行家有否新的好办法?
CREATE CURSOR Temp (dw c(20),xm c(8),xb c(2))
INSERT INTO Temp VALUES ('CCTV','NP','女')
INSERT INTO Temp VALUES ('CCTV','YL','女')
INSERT INTO Temp VALUES ('CCTV','JYD','女')
INSERT INTO Temp VALUES ('CCTV','LYM','女')
INSERT INTO Temp VALUES ('MS','BILL','男')
INSERT INTO Temp VALUES ('BU','ZS','女')
INSERT INTO Temp VALUES ('QU','LS','女')
INSERT INTO Temp VALUES ('CCTV','NP','女')
INSERT INTO Temp VALUES ('CCTV','NP','女')
SELECT * FROM Temp ORDER BY DW INTO CURSOR Temp2
o=NEWOBJECT('excel.application')
o.VISIBLE=.T.
o.workbooks.ADD
WITH o.workbooks(1).worksheets(1)
SELECT Temp2
GO TOP
lnDw=Temp2.dw
FOR lnCnt=1 TO RECCOUNT('Temp2')
SELECT Temp2
GO lnCnt
.RANGE('A'+TRANSFORM(lnCnt)).VALUE=Temp2.dw
.RANGE('B'+TRANSFORM(lnCnt)).VALUE=Temp2.xm
.RANGE('C'+TRANSFORM(lnCnt)).VALUE=Temp2.xb
IF lnDW!=Temp2.dw
lcRange='A'+TRANSFORM(lnCnt)
.hpagebreaks.ADD(.RANGE(lcRange))
lnDw=Temp2.dw
ENDIF
ENDFOR
ENDWITH
*!*
o.displayalerts=.f.
*!*
o.quit
RETURN