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.
Pergunta
Progr'amador
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
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.