打印时由于纸宽有限，用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 &&释放变量