Fórum Gerar Pdf a partir de relatório sem utilizar preview #367960
27/01/2009
0
Boa tarde,
pessoal postei a alguns dias um tópico a respeito desta exportação de relatório através do Fortes Reports. Com o Fortes o relatório é exportado bonitinho porém o tamanho do arquivo fica com 40Mb e o arquivo original tem apenas 569Kb. Como não disponho de muito tempo para finalizar esta exportação gostaria de saber se alguém conhece alguma outra forma de exportar um relatório com duas páginas para Pdf sem utilizar preview (irei gerar os arquivos através de uma lista de alunos então cada arquivo terá o nome do aluno como título). Estou com o Fast Reports 4.0 instalado no Delphi. Caso esta seja uma boa opção e alguém possuir algum tutorial, por favor me envie. Se não ficaria muito grato se alguém pudesse me informar uma outra maneira de gerar estes arquivos.
Muito obrigado a todos.
pessoal postei a alguns dias um tópico a respeito desta exportação de relatório através do Fortes Reports. Com o Fortes o relatório é exportado bonitinho porém o tamanho do arquivo fica com 40Mb e o arquivo original tem apenas 569Kb. Como não disponho de muito tempo para finalizar esta exportação gostaria de saber se alguém conhece alguma outra forma de exportar um relatório com duas páginas para Pdf sem utilizar preview (irei gerar os arquivos através de uma lista de alunos então cada arquivo terá o nome do aluno como título). Estou com o Fast Reports 4.0 instalado no Delphi. Caso esta seja uma boa opção e alguém possuir algum tutorial, por favor me envie. Se não ficaria muito grato se alguém pudesse me informar uma outra maneira de gerar estes arquivos.
Muito obrigado a todos.
Zooropa
Curtir tópico
+ 0
Responder
Posts
06/02/2009
N_informatica
RLPDFFilter1.FileName := ´C:\...\ARQUIVO.pdf´;
if FileExists(´C:\...\ARQUIVO.pdf´) then
DeleteFile(´C:\...\ARQUIVO.pdf´);
with TForm1.Create(nil) do
begin
RLReport1.SaveToFile(RLPDFFilter1.FileName);
Free;
end;
if FileExists(´C:\...\ARQUIVO.pdf´) then
DeleteFile(´C:\...\ARQUIVO.pdf´);
with TForm1.Create(nil) do
begin
RLReport1.SaveToFile(RLPDFFilter1.FileName);
Free;
end;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)