关于vfp控制excel预览的超奇怪的问题????(50分)
SET SAFETY off
* ╔═════════════╗
* ======================== ║ 打印excel表 ║
* ╚═════════════╝
m_excel='D:\TD\REPORT\报表.XLS'
TRY
EOLE.WORKBOOKS.CLOSE
eole.activeworkbook.Close(.F.)
EOLE.QUIT
Release eole &&只有释放对象变量, EXCEL进程才会完全关闭
CATCH
ENDTRY
IF NOT file("&m_excel")
MESSAGEBOX('没有找到【'+m_excel+'】文件！请记下来，查找原因！',48,'提醒您！')
RETURN
ENDIF
eole=CREATEOBJECT('Excel.application')
eole.Workbooks.Open(m_excel)
eole.Worksheets("sheet1").Activate && 激活工作表1
eole.DisplayAlerts = .F.
eole.cells(1,1).Value='aaaccccbbbbbaaaaa' && \\ 给单元格赋值 --- 【运行没问题】
eole.ACTIVEWORKBOOK.SAVE && 自动保存数据 -- 【运行没问题】
eole.ActiveSheet.PrintPreview && 打印预览工作表 --- 【有问题】
* -------- \\ 打印预览就出现【鼠标沙漏状】，一按【Esc】后，提示：由于另一个程序正在运行中，此操作无法完成。请选择"切换到"来激活正在运行中的程序，并更问题。
*eole.ActiveSheet.PrintOut && 直接打印 -- 【单独运行也正常】
TRY
EOLE.WORKBOOKS.CLOSE
eole.activeworkbook.Close(.F.)
EOLE.QUIT
Release eole &&只有释放对象变量, EXCEL进程才会完全关闭
CATCH
MESSAGEBOX('error')
ENDTRY
[解决办法]
就是因为没有这句嘛，有就没问题啦。
我都说了没见到这样的语句，难道我说的不是中国话？
既然要调用预览，总得有个地方显示出来啊，不然调预览干啥？
如果有个表单你设置 visible = .f.，然后说表单显示不出来，也退不出，你说是谁的问题？
