Gerar Pdf a partir de relatório sem utilizar preview
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
Curtidas 0
Respostas
N_informatica
27/01/2009
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;
GOSTEI 0