Gerar pdf da NFC-e Fortes cortando

[Ricardo Rohde]

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]

print do preview

 

[RicardoVoigt]

6 horas atrás, Ricardo Rohde disse:

print do preview

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

Att

Ricardo

[Ricardo Rohde]

Em 18/06/2021 at 23:10, RicardoVoigt disse:

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

Att

Ricardo

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]

1 hora atrás, Ricardo Rohde disse:

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

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]

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]

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

 

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]

3 horas atrás, Ricardo Rohde disse:

Mudei o seguinte  

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]

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

[LIDERNetwork]

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]

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

 

 

[Ricardo Rohde]

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

[LIDERNetwork]

Em 22/06/2021 at 15: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;

 

 

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]

3 minutos atrás, 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...

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

[LIDERNetwork]

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.

[Ricardo Rohde]

Em 22/06/2021 at 15: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;

 

 

alguma ideia se seria isso mesmo?

[RicardoVoigt]

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

 

[Ricardo Rohde]

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

[Leonel Araujo]

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

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

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]

Obrigado por reportar.

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