JJ

- Utiliza a bibliote Zlib.pas e ZConsts do Delphi para compactação do PDF, gerando arquivos compactos. Portanto NÃO substitua estas units.

* ATENÇÂO: Não é possível a visualização de Relatórios com mais de 50 páginas no Internet Explorer, haverá sobreposição de textos. Portanto evite exportar relatórios grandes para este formato.

- Botão Imprimir: Chama diretamente o form SETUP para seleção das opções de impressão (Mai prático)

- Botao EMAIL: Permite implementar uma rotina para envio de E-Mail (veja Projeto de Exemplos)

ATENÇÃO: Ao clickar neste botão, o RDprint dispara o evento OnSendMail, nehuma ação é feita, ficando a cargo do desenvolvedor, implementar a rotina de envio de E-Mail. Isto foi feito porque não podemos criar vinculo ou dependências com componentes de terceiros dentro do RDprint.

- Botao Salvar: Passa a ter as opções de SALVAR o relatório nos seguintes formatos: PDF, HTML, Texto, RPD, PRN

    - Permite criar uma rotina para enviar o Relatório em diversos formatos por EMAIL
    - Exemplo COMPLETO esta disponível no projeto exemplo que acompanha o RDPrint e também pode
      ser baixado em nosso site www.deltress.com.br

Exemplo: O Este exemplo necessita de um FORM (DFM_SendMail) com as conexões com INDY ou
qualquer outro método de envio de E-Mail. (esta no projeto exemplo)

procedure TDFM_ClientesQuebra.RDprint1SendMail(Sender: TObject);

begin

ForceDirectories('C:\Temp'); // Força a Criação de um diretorio de trabalho

// Salva Relatorio em PDF (ou no formato desejado)

RDPrint1.gerarPDF('c:\Temp\' + RDprint1.TitulodoRelatorio + '.pdf');

// RDPrint1.gerarHTM('c:\Temp\' + RDprint1.TitulodoRelatorio + '.html');

// RDPrint1.gerarTXT('c:\Temp\' + RDprint1.TitulodoRelatorio + '.TXT');

// RDPrint1.gerarRDP('c:\Temp\' + RDprint1.TitulodoRelatorio + '.RDP');

// RDPrint1.gerarPRN('c:\Temp\' + RDprint1.TitulodoRelatorio + '.PRN'); (Obsoleto, não usar)

// Chama o Formulario de Envio de Email...(Crie um modelo personalizado para seu uso)

with DFM_SendEmail do

begin

edPara.text := 'suporte@deltress.com.br'; // Destino

edAssunto.Text := RDprint1.TitulodoRelatorio; // Assunto

Listbox1.Items.Clear; // Lista de Anexos...

ListBox1.Items.add('c:\Temp\' + RDprint1.TitulodoRelatorio + '.pdf');

// ListBox1.Items.add('c:\Temp\' + RDprint1.TitulodoRelatorio + '.html');

// ListBox1.Items.add('c:\Temp\' + RDprint1.TitulodoRelatorio + '.txt');

// ListBox1.Items.add('c:\Temp\' + RDprint1.TitulodoRelatorio + '.RDP');

// ListBox1.Items.add('c:\Temp\' + RDprint1.TitulodoRelatorio + '.PRN');

showmodal;

end;

DeleteFile('c:\Temp\' + RDprint1.TitulodoRelatorio + '.pdf'); // Deleta Arquivos Temporários

// DeleteFile('c:\Temp\' + RDprint1.TitulodoRelatorio + '.html');

// DeleteFile('c:\Temp\' + RDprint1.TitulodoRelatorio + '.txt');

// DeleteFile('c:\Temp\' + RDprint1.TitulodoRelatorio + '.RDP');

// DeleteFile('c:\Temp\' + RDprint1.TitulodoRelatorio + '.PRN');

end;