您当前的位置: 打印时由于纸宽有限，用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.
Endwith
Messagebox('看一下效果')
oExcel.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量