Sublinhado desaparece no PDF gerado pelo QuickReport
09/12/2005
0
Alguem sabe me dizer o porque do desaparecimento dos sublinhados em arquivos PDF gerado pelo QuickReport ?
Desde já, agradeço
Armando
Desde já, agradeço
Armando
Abagattini
Curtir tópico
+ 0
Responder
Posts
19/12/2005
Smfnurrali
Oi,
vc poderia me dizer como conseguiu exportar do QuickReport pra PDF :?: :?: :?: To com esse problema já tem mó tempão...
Obrigada!!!
vc poderia me dizer como conseguiu exportar do QuickReport pra PDF :?: :?: :?: To com esse problema já tem mó tempão...
Obrigada!!!
Responder
19/12/2005
Abagattini
A versão 4.0.5 do QuickReport exporta para PDF, tem que baixar esta versão.
procedure ExportaPDF(ArquivoPDF: String);
var aPDFFilt: TQRPDFDocumentFilter; Arquivo: String;
begin
Arquivo := dm.TableConfigCAMINHO_PDF.AsString+´\´+ArquivoPDF+´.PDF´;
if(FileExists(Arquivo))then
begin
if(MessageDlg(´Arquivo PDF já foi gerado !´+CR+CR+´Deseja gerar novamente ?´, mtConfirmation, [mbYes, mbNo], 0) = mrYes)then
DeleteFile(Arquivo)
else
Exit;
end;
aPDFFilt := TQRPDFDocumentFilter.Create(Arquivo);
FormRelLaudo3.QuickRep1.ExportToFilter(aPDFFilt);
aPDFFilt.free;
end;
procedure ExportaPDF(ArquivoPDF: String);
var aPDFFilt: TQRPDFDocumentFilter; Arquivo: String;
begin
Arquivo := dm.TableConfigCAMINHO_PDF.AsString+´\´+ArquivoPDF+´.PDF´;
if(FileExists(Arquivo))then
begin
if(MessageDlg(´Arquivo PDF já foi gerado !´+CR+CR+´Deseja gerar novamente ?´, mtConfirmation, [mbYes, mbNo], 0) = mrYes)then
DeleteFile(Arquivo)
else
Exit;
end;
aPDFFilt := TQRPDFDocumentFilter.Create(Arquivo);
FormRelLaudo3.QuickRep1.ExportToFilter(aPDFFilt);
aPDFFilt.free;
end;
Responder
Clique aqui para fazer login e interagir na Comunidade :)