Imprimir um relatori E3chart com penas


(Elienai) #1

gostaria de uma ajuda. preciso imprimir um relatório gráfico com as penas.
a função imprimir eu consegui porem nao consegui fazer as abas da penas aparece, só apare o gráfio.
tentei criar um script no relatório porem tive sucesso,

Error 5800 : Scripting Error.
[ Extended Info:Scripting Error. [ Extended Info:Section : PageHeader , Event : OnBeforePrint , Line number: 1 Description:Invalid Controls Collection Index.Control name not found or index out of range]

Sub OnBeforePrint
set Chart = Report.Sections(“PageHeader”).Controls(“E3Chart1”)
set ChartTela = Application.GetFrame(“Esquerdo”).Screen.Item(“E3Chart1”)
Chart.CopyConfig(ChartTela)
Chart.LoadData()
End Sub
,.


(Luiz Fernando Freire dos Reis) #2

@cassiano, boa tarde.

Verifica se o nome* do objeto E3Chart do relatório está correto, por favor. Caso não esteja, corrigir no script.

*Para identificar o nome, clicar no objeto E3Chart e verificar o título da Lista de Propriedades:
image

Sds.


(Elienai) #3

Bom dia Fernando ja verifique o nome pois esta correto…
sou funcionário da Marc. funcionário do Rogério.

o gráfico esta sendo executado na tela como viewer1. o nome do gráfico e E3chart1. eu visualizo a impressão porem não visualizo as penas do Gráfico.


(Luiz Fernando Freire dos Reis) #4

@cassiano, bom dia.

Certo. Pode entrar em contato por e-mail também!

Não entendi esta parte.

Da tela ou do relatório ou ambos?

Certo.
Realizou o teste em Runtime ou em Studio?
Segundo o erro que apresentou na abertura do tópico, indica que está declarando algum objeto com o nome incorreto (inexistente). Portanto sugiro verificar novamente o nome do objeto inserido no relatório e complemento sugerindo que verifique se o E3Chart está na seção correta.

Esta é a linha 1 com erro:
set Chart = Report.Sections(“PageHeader”).Controls(“E3Chart1”)

Por favor, verificar.

Sds.


(Elienai) #5


(Elienai) #6


(Luiz Fernando Freire dos Reis) #7

@cassiano,

Obrigado pelas imagens. Faltou apenas o nome do objeto E3Chart do relatório. Por favor, poderia disponibilizar?

Sds.


(Elienai) #8

nao tenho seu emai.
eleienai@marcautomacão.com.br


(Elienai) #9

corrigindo
elienai@marcautomacão.com.br


(Elienai) #10


(Elienai) #11

em Runtime ocorre esse erro

Error 5800 : Scripting Error.
[ Extended Info:Scripting Error. [ Extended Info:Section : PageHeader , Event : OnBeforePrint , Line number: 2 Description:Fatal Exception during script excution.]]


(Luiz Fernando Freire dos Reis) #12

@cassiano,

Este erro indica que o Frame configurado no script está incorreto.

Sugiro realizar o seguinte teste:

No evento Click de um botão (CommandButton) na tela onde está o E3Chart, insere o seguinte script:

Dim FrameName
FrameName = Screen.Frame.Name
MsgBox FrameName

Verifica, por favor, qual nome aparece e utiliza na linha do ChartTela:

set ChartTela = Application.GetFrame(“COLOCAR_AQUI_O_RETORNO”).Screen.Item(“E3Chart1”)

Sds.

EDIT 1: O nome do objeto E3Chart do relatório foi modificado?


(Elienai) #13

EDIT 1: O nome do objeto E3Chart do relatório foi modificado?

nao mantiver


(Elienai) #14

Verifica, por favor, qual nome aparece e utiliza na linha do ChartTela:

set ChartTela = Application.GetFrame(“ COLOCAR_AQUI_O_RETORNO ”).Screen.Item(“E3Chart1”)
ja coloquei varios nomes, nome do quardo, nome da tela


(Luiz Fernando Freire dos Reis) #15

@cassiano,

então o que trocou foi o script, certo?

Realizou o teste com o botão?


(Elienai) #16

Realizou o teste com o botão?
sim, o erro continua.


(Luiz Fernando Freire dos Reis) #17

Qual foi o retorno dele?