用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.
Endwith
Messagebox('看一下效果')
oExcel.ActiveWorkbook.saved=.T. &&不保存当前EXCEL表
oExcel.Workbooks.Close &&关闭表
oExcel.Quit &&退出EXCEL
Release oExcel &&释放变量

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

相关推荐