Database 版 (精华区)

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: Database
标  题: 在VFP中调用Excel打印报表
发信站: 哈工大紫丁香 (2000年12月30日18:32:40 星期六), 转信

在VFP中调用Excel打印报表 


　　VFP(Visual FoxPro)具有较强的数据处理功能，而Excel有灵活的打印功能。
在设计VFP程序时，可以利用VFP的OLE自动化技术，在程序中直接调用Excel，实现
报表打印。程序简洁、操作方便，而且打印出的表格更美观。

　　例如打印学生成绩表，有关的程序如下：

　　SET TALK OFF

　　use dat.dbf 

　　OLEExcel=CreateObject(″Excel.Application″)

　　＆＆建立Excel OLE对象

　　OLEExcel.WorkBooks.Add

　　＆＆增加工作簿

　　OLEExcel.ActiveWorkBook.Sheets(1.Cells(1,1).Value

　　=″班级″

　　OLEExcel.ActiveWorkBook.Sheets(1.Cells(1,2).Value

　　=″语文″

　　OLEExcel.ActiveWorkBook.Sheets(1.Cells(1,3).Value

　　=″数学″

　　＆＆填写A1、B1、C1单元格

　　select dat

　　r=2

　　c=1

　　goto top

　　scan

　　OLEExcel.ActiveWorkBook.Sheets(1).Cells(R,c).Value=dat.班级

　　OLEExcel.ActiveWorkBook.Sheets(1).Cells(R,c＋1).Value=dat.语文

　　OLEExcel.ActiveWorkBook.Sheets(1).Cells(R,c＋2).Value=dat.数学

　　r=r＋1

　　end scan

　　＆＆数据库中的数据填入对应单元格

　　OLEExcel.Caption=″示例：VFP调用Excel″

　　＆＆更改Excel标题栏

　　OLEExcel.ActiveSheet.PageSetup.CenterHeader=″报表1″

　　＆＆设置页眉

　　OLEExcel.ActiveSheet.PageSetup.

　　CenterFooter=″第1页″

　　＆＆设置页脚

　　OLEExcel.ActiveSheet.PageSetup.

　　CenterHorizontally=.T.

　　＆＆设置页面水平居中

　　OLEExcel.ActiveSheet.PageSetup.

　　PaperSize=1

　　＆＆设置页面纸张大小(1－窄行)

　　OLEExcel.ActiveSheet.Cells(2,1).Font.Name=″黑体″

　　＆＆设置字体

　　OLEExcel.ActiveSheet.Rows(1).Font.Size=25

　　＆＆设置字体大小

　　OLEExcel.ActiveWorkBook.SaveAs(″xs.xls″)

　　＆＆保存表格。

　　OLEExcel.ActiveSheet.PrintOut

　　＆＆打印表格

　　OLEExcel.WorkBooks.Close

　　＆＆关闭工作表

　　OLEExcel.Quit

　　＆＆退出Excel

　　RELEASE OLEExcel

　　＆＆释放Excel OLE对象

　　retu

　　本程序只是一个简单示例，在VFP中可以对Excel进行全面控制和设置，具体调
用的方法参见有关资料。

--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]