Fórum Erro ao abrir novamente o Rave Report! #286130
27/06/2005
0
Tem um relatório simples no rave report não programado!
O problema é o seguinte:
Quando abro o formulário cliente por exemplo e clico em visualizar simplesmente o relatório é aberto, mas se caso fechar o formulário
na próxima vez que for gerar o relatório acontece o seguinte erro!:
´Access violation at address 004B212C in module ...´
Obs.:Todos os meus relatórios acontece isso!
Estou usando Direct Data View;
Comandos para gerar o relatório:
FormCreate
begin
// informa o caminho do arquivo RAV
rvPrjCliente.ProjectFile := ExtractFilePath(Application.ExeName) + ´LaudoCliente.rav´;
inherited;
end;
btImprimirClick
begin
// se o botao Imprimir estiver com a propriedade TAG = 0, vai pra Printer, senao Preview
if Tbutton(Sender).Tag = 0 then
RVS.DefaultDest := rdPrinter
else
if Tbutton(Sender).Tag = 1 then
RVS.DefaultDest := rdPreview
else
begin
RVS.DefaultDest := rdFile;
RVS.DoNativeOutput := false;
RVS.RenderObject := RvRenderPDF1;
RVS.OutputFileName := NomeArqLaudo;
end;
rvPrjCliente.Execute;
end;
Desde já obrigado!
Giliard Abreu
O problema é o seguinte:
Quando abro o formulário cliente por exemplo e clico em visualizar simplesmente o relatório é aberto, mas se caso fechar o formulário
na próxima vez que for gerar o relatório acontece o seguinte erro!:
´Access violation at address 004B212C in module ...´
Obs.:Todos os meus relatórios acontece isso!
Estou usando Direct Data View;
Comandos para gerar o relatório:
FormCreate
begin
// informa o caminho do arquivo RAV
rvPrjCliente.ProjectFile := ExtractFilePath(Application.ExeName) + ´LaudoCliente.rav´;
inherited;
end;
btImprimirClick
begin
// se o botao Imprimir estiver com a propriedade TAG = 0, vai pra Printer, senao Preview
if Tbutton(Sender).Tag = 0 then
RVS.DefaultDest := rdPrinter
else
if Tbutton(Sender).Tag = 1 then
RVS.DefaultDest := rdPreview
else
begin
RVS.DefaultDest := rdFile;
RVS.DoNativeOutput := false;
RVS.RenderObject := RvRenderPDF1;
RVS.OutputFileName := NomeArqLaudo;
end;
rvPrjCliente.Execute;
end;
Desde já obrigado!
Giliard Abreu
Giliardabreu
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)