wps属性
在VFP中，怎么应用 wps ，也就是WPS有些属性可用，或者VFP有升级版本，包含有WPS的一些属性。
没用过，参考下吧
1．创建et对象
Wps=Createobject("et.application")
2．添加新工作簿
Wps.Workbooks.Add
3．设置第1个工作表为激活工作表
Wps.Worksheets("sheet1").Activate
4．打开指定工作簿
Wps.Workbooks.Open("c:/book1.xls")
5．显示ET窗口
Wps.Visible=.T.
6．更改ET标题栏
Wps.Caption="VFP调用WPS"
7．给单元格赋值
Wps.cells(1,4).Value="第1行第4列"
8．设置指定列的宽度(单位：字符个数)
Wps.ActiveSheet.Columns(1).ColumnWidth=5
9．设置指定行的高度(单位：磅)
Wps.ActiveSheet.Rows(1).RowHeight=1 &&(设定行高为1磅，1磅=0.035厘米)
Wps.ActiveSheet.Rows("50:100").RowHeight=1 &&设置第50行至100行的高度
10．在第18行之前插入分页符
Wps.Worksheets("Sheet1").Rows(18).PageBreak=1
11．在第4列之前删除分页符
Wps.ActiveSheet.Columns(4).PageBreak=0
12．指定边框线宽度(Borders参数如下)
Wps.ActiveSheet.Range("b3:d3").BorderS(2).Weight=3
13．设置四个边框线条的类型
Wps.ActiveSheet.Range("b3:d3").BorderS(2).LineStyle=1
*(其中Borders参数：1－左、2－右、3－顶、4－底、5－斜、6－斜/；LineStyle值：1与7－细实、2－细虚
、4－点虚、9－双细实线)
14．设置页眉
Wps.ActiveSheet.PageSetup.CenterHeader="报表1"
15．设置页眉(字体大小)
Wps.ActiveSheet.PageSetup.CenterHeader="&50报表1" &&'&'后面的50可以自定义，表示字体的大小
16．设置页脚
Wps.ActiveSheet.PageSetup.CenterFooter="第&P页"
17.设置页脚(字体大小)
Wps.ActiveSheet.PageSetup.CenterFooter="&28第&P页" &&'&'后面的28可以自定义，表示字体的大小
18．设置页眉到顶端边距为2厘米
Wps.ActiveSheet.PageSetup.HeaderMargin=2/0.035
19．设置页脚到底边距为3厘米
Wps.ActiveSheet.PageSetup.FooterMargin=3/0.035
20．设置顶边距为2厘米
Wps.ActiveSheet.PageSetup.TopMargin=2/0.035
21．设置底边距为4厘米
Wps.ActiveSheet.PageSetup.BottomMargin=4/0.035
22．设置左边距为2厘米
Wps.ActiveSheet.PageSetup.LeftMargin=2/0.035
23．设置右边距为2厘米
Wps.ActiveSheet.PageSetup.RightMargin=2/0.035
24．设置页面水平居中
Wps.ActiveSheet.PageSetup.CenterHorizontally=.T.
25．设置页面垂直居中
Wps.ActiveSheet.PageSetup.CenterVertically=.T.
26．设置页面纸张大小(1－窄行8?5?11 39－宽行14?11 9:A4)
Wps.ActiveSheet.PageSetup.Papersize=1
27．打印单元格网线
Wps.ActiveSheet.PageSetup.PrintGridlines=.T.
28．拷贝整个工作表
Wps.ActiveSheet.UsedRange.Copy
29．拷贝指定区域
Wps.ActiveSheet.Range("A1:E2").Copy
30．粘贴
Wps.WorkSheet("Sheet2").Range("A1").PasteSpecial
31．在第2行之前插入一行
Wps.ActiveSheet.Rows(2).Insert
32．在第2列之前插入一列
Wps.ActiveSheet.Columns(2).Insert
33．设置字体
Wps.ActiveSheet.Cells(2,1).Font.Name="黑体"
34．设置字体大小
Wps.ActiveSheet.Cells(1,1).Font.Size=25
35．设置字体为斜体
Wps.ActiveSheet.Cells(1,1).Font.Italic=.T.
36．设置整列字体为粗体
Wps.ActiveSheet.Columns(1).Font.Bold=.T.
37．清除单元格公式
Wps.ActiveSheet.Cells(1,4).ClearContents
38．打印预览工作表
Wps.ActiveSheet.PrintPreview
39．打印输出工作表
Wps.ActiveSheet.PrintOut
40．工作表另存为
Wps.ActiveWorkbook.SaveAs("c:/temp/test2.xls")
41．放弃存盘 && 避免出现保存对话框
Wps.ActiveWorkbook.saved=.T.
42．存盘
Wps.ActiveWorkbook.Save
43．关闭工作簿
Wps.Workbooks.Close
44．退出WPS ET
Wps.Quit
