Impressão em Duas Linhas NFC-e

[Jeverson 2]

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;
 

[antonio.carlos 47]

Tópico movido para a área do SAC, para que o SLA de respostas seja considerado

[José M. S. Junior 2,996]

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 .

[Jeverson 2]

41190979340543000108650010000006031481077583-nfe.xml

[José M. S. Junior 2,996]

Aparentemente a descrição é muito grande para duas linhas. Deixe as duas opções como False nesse caso, para que quebre em mais linhas...

[Jeverson 2]

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;

[José M. S. Junior 2,996]

É possível simular o problema utilizando o demo ACBrNFe? Verificando aqui funcionou normal essas propriedades setando direto no componente.