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?