Ir para conteúdo
  • Cadastre-se

dev botao

Impressão em Duas Linhas NFC-e


Jeverson
Ver Solução Respondido por José M. S. Junior,
  • Este tópico foi criado há 1256 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

  • Membros Pro

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 para o comentário
Compartilhar em outros sites

  • Moderadores

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 .

Consultor SAC ACBr

José Junior
Ajude o Projeto ACBr crescer - Assine o SAC

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Link para o comentário
Compartilhar em outros sites

  • Membros Pro

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 para o comentário
Compartilhar em outros sites

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