Gerar pdf da NFC-e Fortes cortando

Ricardo Rohde · 18 Junho, 2021

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

        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 18 Junho, 2021 por Ricardo Rohde

Ricardo Rohde · 18 Junho, 2021

print do preview

RicardoVoigt · 19 Junho, 2021

Em 18/06/2021 at 19:40, Ricardo Rohde disse:

print do preview

Expandir

Não ficou claro o que vc quis dizer... descobriu como resolver o problema ??

Att

Ricardo

Ricardo Rohde · 21 Junho, 2021

Em 19/06/2021 at 02:10, RicardoVoigt disse:

Não ficou claro o que vc quis dizer... descobriu como resolver o problema ??

Att

Ricardo

Expandir

estou com o erro acima...

assim como este a baixo q gera linhas tortas q me atormenta e não sei o que fazer

RicardoVoigt · 21 Junho, 2021

Em 21/06/2021 at 12:13, Ricardo Rohde disse:

ssim como este a baixo q gera linhas tortas q me atormenta e não sei o que fazer

Expandir

Bom dia,

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

Att

Ricardo

Ricardo Rohde · 21 Junho, 2021

fala Ricardo, já está tudo certinho, é só no geraPdf q da esse pau

do boleto, vou usar o SetRoundMode(rmNearest); antes de imprimir, conforme visto no outro tópico q eu havia "abandonado"

Editado 21 Junho, 2021 por Ricardo Rohde

Ricardo Rohde · 22 Junho, 2021

Em 21/06/2021 at 13: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

Expandir

Xará,

Mudei o seguinte

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

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;

Editado 22 Junho, 2021 por Ricardo Rohde

RicardoVoigt · 22 Junho, 2021

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

Mudei o seguinte

Expandir

Se tivesse problema outros estariam relatando... outra dica eh tentar atualizar os fontes e reinstalar os componentes ? Incluindo a pasta do fortes...

Att

Ricardo

Ricardo Rohde · 23 Junho, 2021

Em 22/06/2021 at 22:43, RicardoVoigt disse:

outra dica eh tentar atualizar os fontes e reinstalar os componentes

Expandir

ja feito e sem sucesso.

só procuro o forum qdo minhas alternativas acabam

Em 22/06/2021 at 22:43, RicardoVoigt disse:

Se tivesse problema outros estariam relatando...

Expandir

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 23 Junho, 2021 por Ricardo Rohde

LIDERNetwork · 23 Junho, 2021

To com esse mesmo problema e ainda pior no final do arquivo ao gerar o PDF esta sendo acrescentado um espaço em branco enorme...

Editado 23 Junho, 2021 por LIDERNetwork

LIDERNetwork · 23 Junho, 2021

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

Ricardo Rohde · 23 Junho, 2021

Em 23/06/2021 at 17:46, LIDERNetwork disse:

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

Expandir

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 23 Junho, 2021 por Ricardo Rohde

LIDERNetwork · 23 Junho, 2021

Em 22/06/2021 at 18:56, Ricardo Rohde disse:
Xará,

Mudei o seguinte

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

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;
Expandir

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...

Ricardo Rohde · 23 Junho, 2021

Em 23/06/2021 at 20:43, LIDERNetwork disse:

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...

Expandir

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

LIDERNetwork · 23 Junho, 2021

Em 23/06/2021 at 20:46, Ricardo Rohde disse:

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

Expandir

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.

Ricardo Rohde · 30 Junho, 2021

Em 22/06/2021 at 18:56, Ricardo Rohde disse:
Xará,

Mudei o seguinte

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

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;
Expandir

alguma ideia se seria isso mesmo?

RicardoVoigt · 5 Julho, 2021

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

alguma ideia se seria isso mesmo?

Expandir

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

Ricardo Rohde · 13 Julho, 2021

Em 05/07/2021 at 17: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

Expandir

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

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

Leonel Araujo · 17 Março, 2023

Em 23/06/2021 at 20:46, Ricardo Rohde disse:

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

Expandir

Amigo boa tarde, estava passando pelo mesmo problema na impressão em tempo de projeto, e pra retirar o espaço em branco só setei a propriedade:

FACBrNFeDANFCeFortes.FormularioContinuo := True;

Renato Rubinho · 18 Março, 2023

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.

Entrar

Gerar pdf da NFC-e Fortes cortando

Recommended Posts

Ricardo Rohde

Ricardo Rohde

RicardoVoigt

Ricardo Rohde

RicardoVoigt

Ricardo Rohde

Ricardo Rohde

RicardoVoigt

Ricardo Rohde

LIDERNetwork

LIDERNetwork

Ricardo Rohde

LIDERNetwork

Ricardo Rohde

LIDERNetwork

Ricardo Rohde

RicardoVoigt

Ricardo Rohde

Leonel Araujo

Renato Rubinho

Links Rápidos

Links Rápidos

Parcerias

Clube Pro

SOBRE

Sobre nós...

Informação Importante