Prezados,
Estou desenvolvendo um script que usa um evento click para copiar a configuração do E3Chart e gerar um relatório, exportando-o para PDF, Excel ou RTF. Para fazer isso, primeiro utilizo o objeto E3Chart para graficar dados consultando um banco de dados (Access), basicamente é um filtro com Data Inicial/Final. Inicialmente, realizei um teste de conceito utilizando a função Report.PrintPreview(), e funcionou perfeitamente, consegui imprimir o gráfico perfeitamente com base na filtragem. Porém, depois que alterei a última de codigo para Report.Export, a aplicação travou, fiz varios teste, mudei a configuração do filtro para reduzir a quantidade de dados, e a aplicação trava independentement do formato escolhido ( PDF, Excel, o RTF).
Código que funciona:
Sub CommandButton2_Click()
'Instacia do Relatorio
Set Report = Application.LoadReport(“RelatorioGraficos”)
'Intacancia do E3Chart1
Set chart = Report.Item(“E3Chart1”)
'Copia configuracao do E3Chart1
chart.CopyConfig(Screen.Item(“E3Chart1”))
'Carregar dados no Relatorio
chart.LoadData()
Report.PrintPreview()
End Sub
Código que NÃO funciona:
Sub CommandButton2_Click()
'Instacia do Relatorio
Set Report = Application.LoadReport(“RelatorioGraficos”)
'Intacancia do E3Chart1
Set chart = Report.Item(“E3Chart1”)
'Copia configuracao do E3Chart1
chart.CopyConfig(Screen.Item(“E3Chart1”))
'Carregar dados no Relatorio
chart.LoadData()
Report.Export "PDF", "", True
End Sub