Ir para conteúdo
  • Cadastre-se

dev botao

Sugestão De Alteração


  • Este tópico foi criado há 3801 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Prezados, boa tarde,

 

Seria interessante embutir as fontes ao gerar o PDF do boleto, muitas vezes o PDF quando enviado a um computador que não tem a fonte específica fica ilegível.

 

Como consequência o arquivo fica maior, outra opção seria criar uma propriedade no ACBrBoletoFCFR para que se possa escolher embutir a fonte ou não.

 

O que acham?

 

 

frxPDFExport.EmbeddedFonts := True;

ACBrBoletoFCFR.pas

procedure TACBrBoletoFCFR.Imprimir;
var
  DmBoleto: TdmACBrBoletoFCFR;
begin
  inherited Imprimir; // Verifica se a lista de boletos está vazia

  DmBoleto := TdmACBrBoletoFCFR.Create(Self);
  try
    with DmBoleto do
    begin
       cdsBanco.EmptyDataSet;
       cdsCedente.EmptyDataSet;
       cdsTitulo.EmptyDataSet;

       if PrepareReport(DmBoleto) then
       begin
          frxReport.PrintOptions.ShowDialog := MostrarSetup;

          case Filtro of
            fiNenhum:
            begin
               if MostrarPreview then
                  frxReport.ShowReport(False)
               else
                  frxReport.Print;
            end;
            fiPDF:
            begin
               frxPDFExport.EmbeddedFonts := True; //DRD SISTEMAS em 30/04/2014
               frxPDFExport.Author := SoftwareHouse; //DRD SISTEMAS em 12/11/2012
               frxPDFExport.ShowDialog := MostrarSetup; //DRD SISTEMAS em 12/11/2012
               frxPDFExport.FileName := NomeArquivo;
               frxReport.Export(DmBoleto.frxPDFExport);
            end;
            fiHTML:
            begin
               frxHTMLExport.ShowDialog := MostrarSetup; //DRD SISTEMAS em 12/11/2012
               frxHTMLExport.FileName := NomeArquivo;
               frxReport.Export(DmBoleto.frxHTMLExport);
            end;


          else
            exit;
          end;
       end;
    end;
  finally
    DmBoleto.Free;
  end;
end;

Link para o comentário
Compartilhar em outros sites

  • Moderadores

Boa tarde

No caso se estiver faltando todos as linhas comentadas seu svn está desatualizada

pois a única diferenças estão na propriedade EmbeddedFonts e Author

Peço para que atualize seu SVN e veja pois essa função é somente do Fast Report e não tenho certeza se em todas as versões que é disponibilizada!

Consultor SAC ACBr Juliomar Marchetti
 

Projeto ACBr

skype: juliomar
telegram: juliomar
e-mail: [email protected]
http://www.juliomarmarchetti.com.br
MVP_NewLogo_100x100_Transparent-02.png
 

 

Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3801 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.