Vamos criar um relatório gráfico que copia as configurações do gráfico da Tela. Este relatório deve ser impresso e exportado para o formato PDF.

1.Insira no projeto um Relatório chamado "RelatorioGrafico".

2.Na Seção Page Header, insira um objeto E3Chart.

3.Abra o Editor de Scripts, clicando em Editor de Scripts .

4.No campo Object selecione o item PageHeader e, no campo Events, selecione o item OnBeforePrint.

5.Entre os textos "Sub OnBeforePrint" e "End Sub", digite o script a seguir.

Set Chart = Report.Sections("PageHeader").Controls("E3Chart1")
Set ChartTela = Application.GetFrame("Area_Central").Screen.Item("E3Chart1")
Chart.CopyConfig(ChartTela)
Chart.LoadData()

Editor de Scripts