(PARTE 1) Gerar PDF e enviá-lo por E-mail no Delphi 7: Gerar PDF a partir do Quick Report utilizando ExportQR

Veja neste artigo como gerar um documento PDF no Delphi 7 a partir de um relatório Quick Report, utilizando o componente ExportQR, e em seguida enviá-lo automaticamente por e-mail.

Neste posto abordarei a 1ª parte do tutorial, explicando como se gera o PDF. Na parte 2 ((PARTE 2) Gerar PDF e enviá-lo por E-mail no Delphi 7: Enviar automaticamente por E-mail um PDF gerado pelo Delphi 7) explico como enviar automaticamente um PDF gerado pelo Delphi.

Venho por meio deste artigo solucionar um grande problema que enfrentei quando tentei gerar arquivos do tipo PDF a partir do Delphi 7, mais especificamente do Quick Report.

Primeiramente você deve fazer o download do componente ExportQR em um dos seguintes links:

• Download ExportQR - MEGA
• Download ExportQR - Devmedia

Após fazer o download, descompacte em algum diretório e abra o
arquivo ExPackD7.dpk (note que o componente também possui
versão para o Delphi 6).

Como este tutorial visa utilizar o ExportQR em conjunto com o Quick
Report, abra o arquivo ExportPack.pas e comente a linha onde está a
diretiva para o FastReport:

 unit ExportPack;  
 {$DEFINE QUICKREPORT}  
 {$DEFINE FASTREPORT} // comente essa linha  
 {$DEFINE SPANISH}  

Após isso, clique no botão Install para instalar o componente e a paleta
ZASOFT será criada no seu Delphi, com o bendito componente
ExportQR. Não esqueça de adicionar o diretório no Library Path do
Delphi, caso não tenha sido feito automaticamente na instalação do
componente (Tools > Environment Options > Library > Library Path).

Gerando PDF a partir do Quick Report

Agora que o componente está devidamente instalado, vamos a parte que
mais interessa. O tutorial vai se basear em um novo projeto criado
somente para demonstrar a geração do PDF.

Crie um novo projeto no Delphi e adicione no Form1 o componente
ExportQR, um BitBtn e um Edit (esse Edit servirá para informar o
diretório que você irá exportar o arquivo PDF).

Após isso, adicione ao projeto um relatório que será nossa impressão
(File > New > Other > Business > QuickReport Wizard). Deixe ambos
os formulários sendo criados em tempo de execução no projeto (ou
seja, eles tem que ficar em Auto-create forms na opção Project >
Options > Forms. Não esqueça de deixar o Form1 acima na
preferência do Auto-create forms.

Neste caso vou deixar o relatório (Form2) em branco, pois o objetivo
é apenas demonstrar como transformá-lo em PDF e não propriamente
explorar as propriedades do Quick Report.

Volte ao formulário principal (Form1) e adicione a Unit do relatório,
através do menu File > Use Unit...

Neste exemplo, pode- se colocar o seguinte texto na propriedade Text do
Edit1 para informar onde será salvo o arquivo PDF:

 Edit1.Text := 'C:\testePDF\testePDF'  

Dê dois cliques no BitBtn criado anteriormente e na ação do botão digite
o seguinte:

 procedure TForm1.BitBtn1Click(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  
   Form2.QuickRep1.Prepare;  
   ExportQR1.Report := Form2.QuickRep1;  
   ExportQR1.ExportQRPDF(Edit1.Text, False);  
  end;  
 end;  

Agora basta rodar a aplicação, informar um diretório válido no text do
Edit e usar a criatividade para solucionar o problema de sua empresa.

Após concluir esses passos, passe para a Parte 2 deste tutorial, que visa
enviar o PDF gerado automaticamente por E-mail:
(PARTE 2) Gerar PDF e enviá-lo por E-mail no Delphi 7: Enviar automaticamente por E-mail um PDF gerado pelo Delphi 7.

Conclusões

Notamos neste artigo a facilidade de geração de arquivos PDF pelo
Delphi 7 e o quanto isso nos pode ser útil no dia-a-dia. No
próximo artigo mostrarei como encaixar automaticamente esse
arquivo PDF gerado em uma rotina de envio de e-mail. Forte
abraço e até o próximo tutorial.

--