用VFP怎么设置Excel单元格缩小字体填充

用VFP如何设置Excel单元格缩小字体填充
打印时由于纸宽有限，用setWrapText(true)换行又使同一单元格的数据分页，我想用缩小字体填充方式，但不知道用VFP要如何设置Excel单元格缩小字体填充。请高手告诉我怎么实现这一功能，谢谢！

[解决办法]

VB code

lcfile='c:\test.xls'oExcel=Createobject('Excel.application')oExcel.Workbooks.Open(lcfile)    && 打开文件oExcel.Visible = .T.oExcel.Range("A1").Select    && 选中某个单元格With oExcel.Selection    .HorizontalAlignment = 1    .VerticalAlignment = -4108    .WrapText = .F.    .Orientation = 0    .AddIndent = .F.    .IndentLevel = 0    .ShrinkToFit = .T.    .ReadingOrder = -5002    .MergeCells = .F.EndwithMessagebox('看一下效果')oExcel.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表oExcel.Workbooks.Close &&关闭表oExcel.Quit &&退出EXCELRelease oExcel &&释放变量