Error: Variant or safe array is locked
Enviado: 03 Jan 2018 17:59
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
e a imagem do erro:
Obrigado
Rubens
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() - Erro Fastreports.png (3.24 KiB) Exibido 5653 vezes
Rubens