Estou tentando imprimir um gráfico para PDF mas no relatório aparece o gráfico sem as penas. O código no relatório é o seguinte:
Sub OnBeforePrint
set Chart1 = Report.Sections(“Detail”).Controls(“E3Chart1”)
set ChartTela1 = Application.GetFrame(“hpFrameSetContent01”).Screen.Item(“E3Chart1”)
Chart1.CopyConfig(ChartTela1)
Chart1.LoadData()
Chart1.TitleColor=RGB(0,0,0)
Chart1.ForeColor=RGB(0,0,0)
set Chart2 = Report.Sections(“Detail”).Controls(“E3Chart2”)
set ChartTela2 = Application.GetFrame(“hpFrameSetContent01”).Screen.Item(“E3Chart2”)
Chart2.CopyConfig(ChartTela2)
Chart2.LoadData()
Chart2.TitleColor=RGB(0,0,0)
Chart2.ForeColor=RGB(0,0,0)
set Chart3 = Report.Sections(“Detail”).Controls(“E3Chart3”)
set ChartTela3 = Application.GetFrame(“hpFrameSetContent01”).Screen.Item(“E3Chart3”)
Chart3.CopyConfig(ChartTela3)
Chart3.LoadData()
Chart3.TitleColor=RGB(0,0,0)
Chart3.ForeColor=RGB(0,0,0)
set Chart4 = Report.Sections(“Detail”).Controls(“E3Chart4”)
set ChartTela4 = Application.GetFrame(“hpFrameSetContent01”).Screen.Item(“E3Chart4”)
Chart4.CopyConfig(ChartTela4)
Chart4.LoadData()
Chart4.TitleColor=RGB(0,0,0)
Chart4.ForeColor=RGB(0,0,0)
End Sub
No relatrório aparece:
E na tela está assim:
