Jump to content

logo_acbr_paygo.png

Chegou o TEF ACBr PayGo
Seja um revendedor e ofereça uma solução completa para seu cliente.


botao_saibamais.png

beneficios.png

Curso Dominando o ACBrMonitor
Novo Módulo Soluções de Varejo
Assine o SAC ACBr em qualquer plano e tenha acesso

Saiba Mais

Balança SM100 performance surpreendente

Tecnologia Japonesa   Teclado e Visor resistentes a água
Consumo inteligente de etiquetas   Baixo custo de manutenção
Comunicação Ethernet e WIFI independentes

Saiba Mais

Impressora de Etiquetas ELGIN - L42 PRO

Protocolos PPLA, PPLB, ZPL, EPL (automático)
Porta USB padrão Opcionais: Ethernet, Serial, Paralela
Sensor de Etiquetas Móvel Garantia de 18 meses

Saiba mais

pcbonetti

ANSWERED Impressão de NFCe com Fast Report - Não respeita as margens

Recommended Posts

Boa tarde,

Sei que existem outros tópicos sobre isso, mas todos os que entrei estavam exibindo um aviso de que o tópico é muito antigo sugerindo a criação de um novo. Então vamos lá:

De algumas atualizações para cá venho tendo problemas ao imprimir a NFCe com Fast Report, pois as configurações de margens não estavam sendo respeitadas. Percebi que vários amigos aqui tem o mesmo problema. Depois de alguns testes consegui resolver alterando a procedure TACBrNFeFRClass.AjustaMargensReports acrescentando apenas uma linha na mesma, que está em negrito no texto abaixo. Vou anexar a unit para avaliação.

procedure TACBrNFeFRClass.AjustaMargensReports;
var
  Page: TfrxReportPage;
  I: Integer;
begin
  for I := 0 to (frxReport.PreviewPages.Count - 1) do
  begin
    Page := frxReport.PreviewPages.Page;
    if (DANFEClassOwner.MargemSuperior > 0) then
      Page.TopMargin := DANFEClassOwner.MargemSuperior;
    if (DANFEClassOwner.MargemInferior > 0) then
      Page.BottomMargin := DANFEClassOwner.MargemInferior;
    if (DANFEClassOwner.MargemEsquerda > 0) then
      Page.LeftMargin := DANFEClassOwner.MargemEsquerda;
    if (DANFEClassOwner.MargemDireita > 0) then
      Page.RightMargin := DANFEClassOwner.MargemDireita;
    frxReport.PreviewPages.ModifyPage(I, Page);
  end;
end;

ACBrNFeDANFEFRDM.pas

  • Like 2

Share this post


Link to post
Share on other sites

Obrigado é isso mesmo que já estavamos vendo aqui

e hoje ainda vou efetuar a correção aqui e nos demais documentos

  • Like 1

Consultor SAC ACBr Juliomar Marchetti
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr

skype: juliomar
telegram: juliomar
http://www.juliomarmarchetti.com.br
Embarcadero MVP
Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites

Bom dia.

Você teve o mesmo problema após atualizar conforme orientação do Juliomar?

Att.


Consultora SAC ACBr

Juliana Tamizou
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Projeto ACBr - A maior comunidade Open Source de Automação Comercial do Brasil

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...