Usando o componente ExportQR

Question

Boa tarde,Algu�m sabe com fazer para que ao fazer a exporta��o de um relat�rio do Quick Report o arquivo gerado em PDF respeite a orienta��o da p�gina. Usando o componente ExportQR n�o consegui fazer ...

Fernando Piccini · Answer

Ola Pessoal,Tenho o mesmo problema....Tenho um relat�rio feito me quickReport por�m quando mando gerar o relat�rio em pdf ele acaba cortando, ou seja, n�o consegue gerar em paisagem...se alguem puder nos ajudar...ta valendo.......

Helderjr · Answer

Pessoal, sem o QR 4.0...... aconselho a utilizar as impressoras virtuais para criar PDF ( pdf995 ou cutepdf ), funcionam que � uma blz e s�o freeEx. www.pdf995.com ou www.cutepdf.com...

Fernando Piccini · Answer

Alterei o fonte do componente �[b:80aa0ec68c]ExportPack[/b:80aa0ec68c]� e funcionou perfeitamente...100�Vlw...

Helderjr · Answer

Fernando, o que vc alterou no componente, poderia enviar por email, por favorjheldercjr@terra.com.br...

Guialberto · Answer

Fernando, ser� que poderia enviar para mim ?guialbertoas@yahoo.com.br[]�Guialberto...

Bresciani · Answer

Boa tarde, Fernando PicciniTeria como vc me mandar esse fonte do Export por favorricardo_bresciani@hotmail.com[quote:64a3e4647f=�Fernando Piccini�]Alterei o fonte do componente �[b:64a3e4647f]ExportPack[/b:64a3e4647f]� e funcionou perfeitamente...100�Vlw[/quote:64a3e4647f]...

Fernando Piccini · Answer

Essa � uma das rotinas que implementei para gerar PDF apartir do componente ExportPack para Delphi 6.

Torna-se necess�rio tamb�m efetuar a chamada no QuickReport para gerar o PDF, ok

// Piccini - 12/03/2007
procedure TExportQR.ExportToPDF(FileName: String; Compresion: Boolean);
begin
  if (not Assigned(FReport)) then
    Exit;
  if Assigned(FReport.DataSet) then
     FReport.DataSet.Open;
  FReport.Prepare;
  try
    if (Compresion) then
       ExportQRPDF (FileName, True)
    else
       ExportQRPDF (FileName, False);
    if (FReport.DataSet <> nil) then
       FReport.DataSet.Close;
    FReport.QRPrinter.Free;
    FReport.QRPrinter := nil;
  except
    MessageDlg(Error, mtError, [mbOK], 0);
    Exit;
  end;
end;

:D

Roberto_conetsys · Answer

Fernando,Voce sabe se tem o ExportPack para Delphi 2007 e onde posso baixa-lo ?Grato....

Fernando Piccini · Answer

Ola roberto_conetsys,N�o cheguei a procurar o ExportPack para a Vers�o do Delphi 2007.O que poderia fazer � pegar a vers�o por exemplo �Delphi 6� e testar. Talvez torna-se necess�rio incluir alguns tratamentos pois podem existir incompatibilidade, devido a vers�o, certo.Abra�o  :D...

F�rum Usando o componente ExportQR #327904