在VFP中调用Excel打印报表

在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进行全面控制和设置,具体调用的方法参见有关资料。

 » 本站地址:http://www.gomoth.com

标签: ,