采用Word更好地输出VFP报表

来源：用户分享时间：2025/5/25 8:44:25 本文由

loading 分享下载这篇文档手机版

说明：文章内容仅供预览，部分内容可能不全，需要完整文档或者需要复制内容，请下载word后使用。下载word有问题请添加微信号:xxxxxxx或QQ：xxxxxx 处理（尽可能给您提供完整文档），感谢您的支持与谅解。

FOR I=1 TO nOutColumn DO CASE

CASE aFieldName[I,2]==\

cString=STR(&aFieldName[I,1],aFieldName[I,3], aFieldName[I,4])

CASE aFieldName[I,2]==\

cString=ALLT(STR(&aFieldName[I,1],10,0]))

CASE aFieldName[I,2]==\cString=TRIM(&aFieldName[I,1]) IF LEN(cString)>aFieldName[I,6] aFieldName[I,6]=LEN(cString) ENDIF OTHERWISE

cString=\暂不处理类型\ENDCASE

oleWord.NextCell()

oleWord.Insert((cString)) &&字符型变量必须外加() ENDFOR SKIP ENDDO

*--表格内容填写完毕

*下面根据填写的具体内容重新调整表格某些列的宽度 *(在下面的计算过程中单位为TWIP)

j=nWidth*1440 &&nWidth为版心宽度是一全局变量,单位为英寸 &&1英寸=1440TWIP k=0

FOR I=1 TO nOutColumn

IF aFieldName[I,2]#\j=j-aFieldName[I,5] &&剩余可用宽度 ELSE

k=k+aFieldName[I,6] &&需要调整宽度的最大字符数之和 ENDIF

ENDFOR &&减去禁止调列的宽度 FOR I=1 TO nOutColumn

IF aFieldName[I,2]=\*如果要调整的宽度小于或等于最小宽度,则将其列入非调整之列 IF j/k*aFieldName[I,6] <= aFieldName[I,5] aFieldName[I,2]=\j=j-aFieldName[I,5] k=k-aFieldName[I,6] I=1 &&从头循环 LOOP ENDIF

ENDIF ENDFOR

FOR I=1 TO nOutColumn

IF aFieldName[I,2]=\oleWord.EditGoto((aFieldName[I,1])) oleWord.TableSelectColumn

oleWord.TableColumnWidth(j/k*aFieldName[I,6]/20,2, 0,0,0,0)

*1磅=20TWIP,TableColumn()的缺省单位为磅 ENDIF ENDFOR *宽度调整完毕

oleWord.FileSaveAs(\*oleWord.FilePrint(0,0,0,\oleWord.AppClose(\WAIT \卸载Word Basic\WAIT CLEAR RETURN

在将数据库内容生成Word文档的最终结果一种方法是以文档的形式保存下来,另一方法是不仅要把文档保存下来,还要进行打印,此时

需要注意的一点是:不能采用后台打印,将上述程序*olwWord.FilePrint(0,0,0,\前面的星号\去掉即可。\\

中的

搜索更多关于：采用Word更好地输出VFP报表的文档

采用Word更好地输出VFP报表.doc 将本文的Word文档下载到电脑，方便复制、编辑、收藏和打印

下载这篇word文档

本文链接：https://www.diyifanwen.net/c912qo6kxky8ojit8frc5_2.html（转载请注明文章来源）