Ir para conteúdo
  • Cadastre-se

dev botao

Gerar pdf da NFC-e Fortes cortando


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

Recommended Posts

Utilizo o seguinte comando  para gerar o PDF da NFC-e

ACBrNFe1.DANFE.ImprimirDANFEPDF

 

 

o pdf Gerado está bugando a linha onde aparece a quantidade x vlr un x vlr total

na pre visualização e impressão na bobina estão ok!!!!

já mexi nas margens e não surge efeito.

 

segue print

 

image.png.f4fb908934abe58604ccfe293c565122.png

 

 

        Danfce := TACBrNFeDANFCeFortes.Create(nil);
        Danfce.MargemInferior     := 8;
        Danfce.MargemSuperior     := 8;
        Danfce.MargemEsquerda     := 1;
        Danfce.MargemDireita      := 5;
        Danfce.ImprimeQRCodeLateral := True;
        Danfce.ImprimeLogoLateral   := True;
        Danfce.LarguraBobina        := CfgLocal.LargBobinaNFCE; já usei 280 a 302
        Danfce.ImprimeEmUmaLinha    := False;
        Danfce.ExibeInforAdicProduto:= infNenhum;

        ACBrNFe1.DANFE              := Danfce;

 

Editado por Ricardo Rohde
Link para o comentário
Compartilhar em outros sites

Em 21/06/2021 at 10:38, RicardoVoigt disse:

Bom dia,

já tentou ajustar aquela configuração de "escala e layout" do windows ? tente selecionar a opção 100% (recomendado)

Att

Ricardo

Xará,

 

Mudei o seguinte  

no mLinhaTotalItem, alterei o Alignment de taRightJustify para taCenter  (((

image.png.8ef25b12b5392c1f146b280921732d24.png

 

Na procedure FormataTextoItemParaNormal (linha 699)

Mudei de: LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 10, mLinhaTotalItem.Font);

Para: LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 50, mLinhaTotalItem.Font);

 

 

Problema se resolve... qual impacto ocasionaria nos demais?!

Aqui, com essa alteração não mudou mais nada além desse problema.

        Danfce := TACBrNFeDANFCeFortes.Create(nil);
        Danfce.MargemInferior     := 8;
        Danfce.MargemSuperior     := 8;
        Danfce.MargemEsquerda     := 1;
        Danfce.MargemDireita      := 5;
        Danfce.ImprimeQRCodeLateral := True;
        Danfce.ImprimeLogoLateral   := True;
        Danfce.LarguraBobina        := 280;
        Danfce.ImprimeEmUmaLinha    := False;
        Danfce.ExibeInforAdicProduto:= infNenhum;

 

image.png.4e41a76492ef5240de5da28fcb6475a6.png

 

Editado por Ricardo Rohde
Link para o comentário
Compartilhar em outros sites

13 horas atrás, RicardoVoigt disse:

outra dica eh tentar atualizar os fontes e reinstalar os componentes

ja feito e sem sucesso.

só procuro o forum qdo minhas alternativas acabam

13 horas atrás, RicardoVoigt disse:

Se tivesse problema outros estariam relatando...

Será mesmo? Será q todo mundo gera PDF e anexa ao email qdo emite a nota? Ou só manda o xml? Será q todos abrem e olham?

É um detalhe tão imperceptivel... q nem se nota q o valor total nao aparece  

 

Editado por Ricardo Rohde
Link para o comentário
Compartilhar em outros sites

6 minutos atrás, LIDERNetwork disse:

@Ricardo Rohde obrig pela contribuição aqui funcionou e resolveu com as suas colocações.

 

 

Quais delas??

 

 

esse q vc citou do espaço grande no final nem me preocupo... mas se tiver como reduzir.. seria melhor.. até pq diminuiria o pdf 

Editado por Ricardo Rohde
Link para o comentário
Compartilhar em outros sites

Em 22/06/2021 at 15:56, Ricardo Rohde disse:

Xará,

 

Mudei o seguinte  

no mLinhaTotalItem, alterei o Alignment de taRightJustify para taCenter  (((

image.png.8ef25b12b5392c1f146b280921732d24.png

 

Na procedure FormataTextoItemParaNormal (linha 699)

Mudei de: LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 10, mLinhaTotalItem.Font);

Para: LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 50, mLinhaTotalItem.Font);

 

 

Problema se resolve... qual impacto ocasionaria nos demais?!

Aqui, com essa alteração não mudou mais nada além desse problema.


        Danfce := TACBrNFeDANFCeFortes.Create(nil);
        Danfce.MargemInferior     := 8;
        Danfce.MargemSuperior     := 8;
        Danfce.MargemEsquerda     := 1;
        Danfce.MargemDireita      := 5;
        Danfce.ImprimeQRCodeLateral := True;
        Danfce.ImprimeLogoLateral   := True;
        Danfce.LarguraBobina        := 280;
        Danfce.ImprimeEmUmaLinha    := False;
        Danfce.ExibeInforAdicProduto:= infNenhum;

 

image.png.4e41a76492ef5240de5da28fcb6475a6.png

 

Essas aqui, sobre o espaço eu já resolvi nao sei por que mas ao criar o componente em tempo de execução acontece esse espaço...

Link para o comentário
Compartilhar em outros sites

3 minutos atrás, Ricardo Rohde disse:

Hmm, vc setou alguma propriedade pra tirar o "espaço em branco"?

Nao na verdade deixei de criar em tempo de execuçao apenas e esse problema foi resolvido. Acredito que o problema esta ali no constructor mas pra mim dá pra usar sem ser criando na execução entao deu certo aqui.

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Em 22/06/2021 at 15:56, Ricardo Rohde disse:

Xará,

 

Mudei o seguinte  

no mLinhaTotalItem, alterei o Alignment de taRightJustify para taCenter  (((

image.png.8ef25b12b5392c1f146b280921732d24.png

 

Na procedure FormataTextoItemParaNormal (linha 699)

Mudei de: LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 10, mLinhaTotalItem.Font);

Para: LinhaTotal := TDFeReportFortes.EspacejarTextoGrafico(LinhaTotal, mLinhaTotalItem.Width - 50, mLinhaTotalItem.Font);

 

 

Problema se resolve... qual impacto ocasionaria nos demais?!

Aqui, com essa alteração não mudou mais nada além desse problema.

        Danfce := TACBrNFeDANFCeFortes.Create(nil);
        Danfce.MargemInferior     := 8;
        Danfce.MargemSuperior     := 8;
        Danfce.MargemEsquerda     := 1;
        Danfce.MargemDireita      := 5;
        Danfce.ImprimeQRCodeLateral := True;
        Danfce.ImprimeLogoLateral   := True;
        Danfce.LarguraBobina        := 280;
        Danfce.ImprimeEmUmaLinha    := False;
        Danfce.ExibeInforAdicProduto:= infNenhum;

 

image.png.4e41a76492ef5240de5da28fcb6475a6.png

 

alguma ideia se seria isso mesmo?

Link para o comentário
Compartilhar em outros sites

Em 30/06/2021 at 10:29, Ricardo Rohde disse:

alguma ideia se seria isso mesmo?

Boa tarde,

não tenho certeza se é a solução ideial... já tentou emitir com valores maiores de 100 ? acho que os valores ficarão desalinhados...

sobre o corte na direita deve ter mais algum detalhe impactando ai... não dá pra ter certeza...

já revisaram aquela configuração do windows referente a escala? se estiver diferente de 100%, ajustar para 100%...

Ou definir uma outra impressora diferente, como impressora padrão no Windows...

Att

Ricardo

 

Link para o comentário
Compartilhar em outros sites

Em 05/07/2021 at 14:25, RicardoVoigt disse:

Boa tarde,

não tenho certeza se é a solução ideial... já tentou emitir com valores maiores de 100 ? acho que os valores ficarão desalinhados...

sobre o corte na direita deve ter mais algum detalhe impactando ai... não dá pra ter certeza...

já revisaram aquela configuração do windows referente a escala? se estiver diferente de 100%, ajustar para 100%...

Ou definir uma outra impressora diferente, como impressora padrão no Windows...

Att

Ricardo

 

já... foi feito tudo isso q vc disse, e antes de vir aqui, ja tinha feito...

 

os valores só se ajustam mudando o fonte...

Link para o comentário
Compartilhar em outros sites

  • 1 ano depois...
  • Este tópico foi criado há 377 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.
Visitante
Este tópico está agora fechado para novas respostas
×
×
  • 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.