Error: Variant or safe array is locked

[rubens]

Boa tarde...

Compilando com minigui extends, quando tento exportar um relatório do fastreports para o excel dá esse erro.
Acontece depois do relatório já preparado na função FrPrn:DoExport( "XLSExport" ).
Tô usando o Windows 10 com office 2013. Tentei em um computador com Windows 7 e office 2010 e acontece a mesma coisa...
Chega a gerar o arquivo do Excel mas sem conteudo... gera um arquivo vazio...
Fonte

Código: Selecionar todos

	
	cFileExcel := cEmpresa + ' - Balanco 2017.xls'
	
	FrPrn:=frReportManager():new()
   FrPrn:SetWorkArea( Alias(), Select() )
   FrPrn:LoadFromFile( hb_Dirbase() + 'Balanco.Fr3')
	
	FrPrn:SetProperty("XLSExport","FileName", cFileExcel )
   FrPrn:SetProperty("XLSExport","ShowDialog",.f.)
   FrPrn:SetProperty("XLSExport","ShowProgress",.f.)
   FrPrn:SetProperty("XLSExport","OpenAfterExport",  .f. )
   FrPrn:SetProperty("PDFExport","OpenExcelAfterExport",.f. )
   FrPrn:SetProperty("PDFExport","ExportStyles",.t. )
	FrPrn:PrepareReport()   
   FrPrn:DoExport( "XLSExport" )
	FrPrn:DestroyFR() 	     

e a imagem do erro:

Erro Fastreports.png (3.24 KiB) Exibido 5652 vezes

Obrigado
Rubens