Jeverson 2 Posted October 19, 2020 Report Share Posted October 19, 2020 Olá, Estou precisando imprimir em duas linhas NFC-e devido algumas características de alguns itens que possui garantias, ai o cliente que e saia impresso. Ativei a propriedades ACBrNFeDANFCeFortes.ImprimeEmDuasLinhas := True; ACBrNFeDANFCeFortes.ImprimeEmUmaLinha := False; imprime somente a primeira linha. Existem alguma outra propriedade para ser configurada? ACBrNFeDANFCeFortes.MargemInferior := 1; ACBrNFeDANFCeFortes.MargemSuperior := 1; ACBrNFeDANFCeFortes.MargemEsquerda := 1; ACBrNFeDANFCeFortes.MargemDireita := 1; Link to post Share on other sites
antonio.carlos 65 Posted October 19, 2020 Report Share Posted October 19, 2020 Tópico movido para a área do SAC, para que o SLA de respostas seja considerado Link to post Share on other sites
José M. S. Junior 3,054 Posted October 19, 2020 Report Share Posted October 19, 2020 Bom dia, para que imprima a descrição em duas linhas, basta deixar a propriedade: ImprimeEmUmaLinha false mesmo. Desde que a descrição ultrapasse o limite da primeira linha? Como está imprimindo seu cupom? se possivel anexe um print e o seu XML . José Junior Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link to post Share on other sites
Jeverson 2 Posted October 19, 2020 Author Report Share Posted October 19, 2020 41190979340543000108650010000006031481077583-nfe.xml Link to post Share on other sites
José M. S. Junior 3,054 Posted October 19, 2020 Report Share Posted October 19, 2020 Aparentemente a descrição é muito grande para duas linhas. Deixe as duas opções como False nesse caso, para que quebre em mais linhas... José Junior Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link to post Share on other sites
Jeverson 2 Posted October 19, 2020 Author Report Share Posted October 19, 2020 Informei a propriedade ACBrNFeDANFCeFortes.ImprimeEmDuasLinhas := False; ACBrNFeDANFCeFortes.ImprimeEmUmaLinha := False; Depurando, chega nessa unit ACBrNFeDANFCeFortes.ImprimeEmDuasLinhas com verdadeiro ai não cai no else para FormataTextoItemParaNormal.. Forcei manual ai imprimiu corretamente para teste ... procedure TACBrNFeDANFCeFortesFr.rlbDetItemBeforePrint(Sender: TObject; var PrintIt: Boolean); var LinhaItem, LinhaTotal: string; begin PrintIt := not Resumido; if not PrintIt then exit; mLinhaItem.Lines.Clear ; // teste ACBrNFeDANFCeFortes.ImprimeEmDuasLinhas := false; if ACBrNFeDANFCeFortes.ImprimeEmUmaLinha then begin FormataTextoItemParaUmaLinha(LinhaItem); mLinhaItem.Lines.Text := LinhaItem; end else if ACBrNFeDANFCeFortes.ImprimeEmDuasLinhas then begin FormataTextoItemParaDuasLinhas(LinhaItem, LinhaTotal); mLinhaItem.Lines.Text := LinhaItem; mLinhaTotalItem.Lines.Text := LinhaTotal; end else begin FormataTextoItemParaNormal(LinhaItem, LinhaTotal); mLinhaItem.Lines.Text := LinhaItem; mLinhaTotalItem.Lines.Text := LinhaTotal; end; end; Link to post Share on other sites
Solution José M. S. Junior 3,054 Posted October 19, 2020 Solution Report Share Posted October 19, 2020 É possível simular o problema utilizando o demo ACBrNFe? Verificando aqui funcionou normal essas propriedades setando direto no componente. José Junior Ajude o Projeto ACBr crescer - Assine o SAC (15) 2105-0750 (15)99790-2976. Link to post Share on other sites
Recommended Posts