FiveTech Software tech support forums

Disculpen la insistencia, no he podido visualizar previamente un archivo de excel,

cTmpXls:='P:\Tmp\FINAL.xlsx'
oExcel:=TOleAuto():New( "Excel.Application" )
oBook :=oExcel:WorkBooks:Open(cTmpXls,0)
oSheet:=oExcel:Get("ActiveSheet")
oSheet:PrintPreview()
oExcel:Close()
oExcel:Quit()

Que tendre mal?

Noe, mira se ayuda:

http://fivewin.com.br/index.php?/topic/21673-usando-o-createobject-excelapplication/#comment-263088

Saludos.

Buen dia Noe
Asi me funciona

Code: Select all  Expand view

oExcel:= TOleAuto():New( "Excel.Application", .F. )
   // Abrir Hoja
   oExcel:Set( "DisplayAlerts",(.F.) )
   oWorkBooks:= oExcel:WorkBooks:Add()                   // Abre excel con un libro vacio de tres hojas
   oHoja:= oExcel:ActiveSheet
 

Aunque no veo que cambie mucho a tus declaraciones. Solo el parámetro (.F.), que tendría que volver a leer para recordar a que refiere

Intenta, poniendo antes del preview:

Code: Select all  Expand view

oExcel:Visible:= .T.

.