Vamos ver nesse artigo o componente ExportQR, que exporta relatórios para arquivos de imagens ou arquivo PDF. Os arquivos de imagem suportados são: JPG, BMP, WMF e EMF, e arquivo PDF pode ser de alta ou baixa compressão. O componente é freeware e possui código fonte.
Download e instalação
Faça o download do componente no endereço: www.clubedelphi.net/ExportReport.zip, descompacte o arquivo num diretório e abra o arquivo ExPackDX.dpk (onde X é a versão do Delphi, sendo que o componente possui versões para Delphi 6 e 7).
Antes de realizarmos a instalação do componente, devemos levar em conta que o componente trabalha com relatórios do QuickReport e FastReport. Se você não possui o FastReport instalado então abra o arquivo ExportPack.pas e exclua a linha onde esta a diretiva para o FastReport, como no código a seguir:
unit ExportPack;
{$DEFINE QUICKREPORT}
{$DEFINE FASTREPORT} // excluir essa linha
{$DEFINE SPANISH}
Após clique no botão Install para instalar o componente. A paleta ZASOFT será criada no Delphi, com o componente ExportQR. Adicione no Library Path (Tools>Environment Options|Library|Library Path) do Delphi o caminho (Diretório Descompactado\Source) dos arquivos fonte do componente.
Exportando relatórios
Agora que já fizemos a instalação do componente vamos ao nosso exemplo. Crie um novo projeto no Delphi, adicione no formulário o componente ExportQR, um RadioGroup, um BitBtn e um Edit.
Adicione ao projeto um relatório (File>New|Other|Report). Utilizaremos no relatório dados de um arquivo XML, coloque no relatório um ClientDataSet e clique com o botão direto no componente e escolha Load from MyBase table... e escolha o arquivo animais.xml que por padrão esta em C:\Arquivos de programas\Arquivos comuns\Borland Shared\Data.
Dê um duplo clique no relatório e em Bands marque as seguintes opções: Column header e Detail band. Clique em OK para voltar ao relatório. Adicione os componentes QRLabel (na banda Column Header) e QRDBText (na banda Detail).
Altere a propriedade DataSet do relatório para o ClientDataSet, como também a propriedade de cada componente com o seu respectivo DataField. Altere para True a propriedade Stretch do QRDBImage. Nosso relatório esta pronto.
Volte ao formulário principal e adicione a unit do relatório, através do menu File>Use Unit...
Clique no botão que irá exporta o relatório e digite o seguinte código:
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if (Edit1.Text = '') then
begin
MessageDlg('Especifique um local para a '+
'exportação !', mtError, [mbOK], 0);
Edit1.SetFocus;
Exit;
end
else
begin
QuickReport2.Prepare;
ExportQR1.Report := QuickReport2;
case RadioGroup1.ItemIndex of
0 : ExportQR1.ExportQRPDF(Edit1.Text, True);
1 : ExportQR1.ExportQRPDF(Edit1.Text, False);
2 : ExportQR1.ExportQRJPG(Edit1.Text);
3 : ExportQR1.ExportQRBMP(Edit1.Text);
4 : ExportQR1.ExportQRWMF(Edit1.Text);
5 : ExportQR1.ExportQREMF(Edit1.Text);
end;
end;
end;
Adicione o relatório na opção que cria o mesmo em tempo de execução (Project>Options|Forms|Auto-create forms). Rode e teste a aplicação. Note que no caso da exportação para PDF é criado um único arquivo, já na exportação de imagens é criado um arquivo para cada página do relatório e adicionado um número.
Vimos nesse artigo à facilidade na exportação de relatórios para arquivos PDF ou de imagens, com o componente ExportQR. Vale ressaltar que o componente trabalha também com o gerador FastReport. Um grande abraço e até a próxima.
