Ir para conteúdo
Fórum Script Brasil
  • 0

Exportando do QuickReport para PDF para toda aplicação


Progr'amador

Pergunta

Olá,

pra quem usa o a versão 4.05 do quickreport apartir da versão 7 do delphi, tenho uma dica interessante, que vai ser muito funcional sendo que você só vai ser preciso alterar o QRPrev.pas do quickreport adicionandoum botão na parte de cima, com isso servindo pra qualquer relatório sem ter que ficar programando a exportação individual.

1 passo: faça um backup do seu arquivo original, no caso qrprev.pas e qrprev.dfm no caso do delphi7 fica em C:\Arquivos de programas\Borland\Delphi7\quickrpt (Essa cópia é só por segurança caso dê algo errado).

2 passo: após feito a cópia abra o arquivo qrprev.pas, vai abrir a tela onde é gerado todos os relatórios do QRP, na ToolBar adicione um Button, e adicione tambem um SaveDialog (vou chamar de SaveDialog1).

3: passo: declare no uses: QRPDFFilt, e no button que você adicionou o código abaixo:

procedure TQRStandardPreview.ToolButton3Click(Sender: TObject);
var
  PDFFilt : TQRPDFDocumentFilter;
  FileExt : string;
  I : integer;
begin
  PDFFilt := nil;
  with TSaveDialog.Create(Application) do
  try
    Title := SqrSaveReport;
    Filter := 'Arquivos Adobe PDF (*.pdf)|*.PDF';
    FileName := QRPreview.QRPrinter.Title;
    if Execute then begin
       if pos('.',FileName) > 0 then
          FileName := Copy(FileName, 1, pos('.',FileName)-1)+'.pdf'
       else FileName := FileName+'.pdf';
       FileExt := FileName;
       PDFFilt := TQRPDFDocumentFilter.Create(Filename);
       PDFFilt.AddFontMap( 'WebDings:ZapfDingBats' );
       PDFFilt.TextOnTop := true;
       PDFFilt.LeftMargin := 0;
       PDFFilt.topMargin := 0;
       PDFFilt.CompressionOn := false;
       PDFFilt.Concatenating := true;
       QRPreview.QRPrinter.ExportToFilter(PDFFilt);

       PDFFilt.EndConcat;
       PDFFilt.Free;
    end;
  finally
    Free;
  end;
end;

Salve o arquivo ae é so abrir seu prejeto e compilar.

By Progr'amador :rolleyes:

Abs. Progr'amador.

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

Eder, pense em trocar o delphi 4 pelo delphi 7 que tem muito mais recursos, inclusive nesse aspecto 

mas tente esses links

http://www.devmedia.com.br/gerar-pdf-a-partir-do-quick-report/142

http://www.andrecelestino.com/delphi-exportando-relatorios-em-quickreport-para-pdf-com-o-synopse/

abraço

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...