• 0
Sign in to follow this  
Progr'amador

Exportando do QuickReport para PDF para toda aplicação

Question

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.

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

ola, ainda uso o D4 e precisaria de algo para converter do quickreport para PDF, tem algo??

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this