关于vfp调用Excel【只预览不打开文件】的问题？

[敦厚的曹操]

eole.visible=.t.
eole.ActiveSheet.PrintPreview   && 打印预览工作表
eole.visible=.f.

各位同仁，我用vfp调用excel文件打印，因为只想调用打印，所以现在的问题是，一关闭预览后，就自动出现excel文件 ，如何能只预览，也就是当关闭预览后，文件也跟着关闭。
谢谢了！

[lygcw9602]

抛砖引玉，VFP6代码

SET DATE YMD
SET CENTURY ON
CDBFFILE = GETFILE("dbf")
IF EMPTY(CDBFFILE)
   RETURN
ENDIF
SELECT * FROM JUSTSTEM(CDBFFILE) INTO CURSOR FOXTABLE
JLS=TRANSFORM(RECCOUNT()+1)
CEXCELFILE = PUTFILE("保存为(&N):",JUSTSTEM(CDBFFILE)+".xls","xls")
IF EMPTY(CEXCELFILE)
   RETURN
ENDIF
SELECT FOXTABLE
OEXCELSHEET = GETOBJECT("","Excel.Sheet")
IF NOT TYPE("oExcelSheet") = "O"
   =MESSAGEBOX("Excel对象创建失败，程序将中止！", 16, "Error")
   RETURN
ENDIF
OEXCEL = CREATEOBJECT("excel.application")
WITH OEXCEL
     .WORKBOOKS.ADD
     .SHEETS("Sheet1").SELECT
     .SHEETS("Sheet1").NAME = "sample"
     .VISIBLE=.f.                     
     .DISPLAYALERTS = .F.             
     .CELLS.SELECT			         
     WITH .SELECTION.FONT
          .NAME = "宋体"
          .SIZE = 10
     ENDWITH
ENDWITH
OEXCEL.ACTIVESHEET.ROWS(1).ROWHEIGHT=24
OEXCEL.ACTIVESHEET.ROWS('2:&JLS').ROWHEIGHT=20
FOR I = 1 TO FCOUNT()
    OEXCEL.ACTIVESHEET.COLUMNS(I).COLUMNWIDTH=FSIZE(FIELD(I))
    OEXCEL.CELLS(1,I).VALUE = FIELD(I)
ENDFOR
OEXCEL.SELECTION.HORIZONTALALIGNMENT=2
SCAN
    FOR I=1 TO FCOUNT()
        MFIELD=FIELD(I)
        WAIT WINDOW TRANSFORM(RECNO()) + "/"+ TRANSFORM(RECCOUNT()) NOWAIT
        OEXCEL.CELLS(RECNO()+1,I).VALUE=&MFIELD
    ENDFOR
ENDSCAN
oexcel.visible=.t.
oexcel.ActiveSheet.PrintPreview 
oexcel.visible=.f.
OEXCEL.ACTIVEWORKBOOK.SAVEAS(CEXCELFILE)
OEXCEL.QUIT
RELEASE OEXCEL
WAIT CLEAR
=MESSAGEBOX("转换完毕！", 64, "OK")

上面的代码有一闪的效果，一点看不到，我暂时做不到

[敦厚的曹操]

已解决，谢谢楼上的热心答复！
我发现是我代码有问题，闪一下是正常的，你给的代码没有任何问题！
马上结贴给分！

[QQ7884048]

sdingh dimnh adimh