Jump to content

dev botao

Alinhar à esquerda e à direita na mesma linha


  • Este tópico foi criado há 1905 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa tarde pessoal,

Estou fazendo alguns relatórios gerenciais no sistema seguindo o exemplo DemoDanfeEscPos para impressão de relatórios diversos via serial! Gostaria de saber se tem como alinhar dois textos, um a esquerda e outro a direta, na mesma linha.. Assim como é feito no Danfe da NFC-e onde tem o CNPJ da empresa alinhado à esquerda e a IE alinhado à direita..

Tentei utilizar

Add('<ae>CNPJ.: ' + CNPJ + '</ae><ad>IE.: ' + IE + '</ad>');

Ele até faz o alinhamento, porém, ficam em linhas separadas! Há como fazer na mesma linha?

Link to comment
Share on other sites

  • Fundadores

No EscPos, o comando de alinhamento só funciona se for o primeiro comando da linha...

Use o PadSpace() ,exemplo:

Add(PadSpace('#|COD|DESC|QTD|UN|VL UN R$|(VLTR R$)*|VL ITEM R$', FPosPrinter.ColunasFonteCondensada, '|'));

No comando acima... O PadSpace irá inserir espaços no meio da String, sempre que encontrar o "|" para que a linha tenha o tamanho total de "ColunasFonteCondensada"...

Consultor SAC ACBr

Daniel Simões de Almeida
O melhor TEF, é com o Projeto ACBr - Clique e Conheça
Ajude o Projeto ACBr crescer - Assine o SAC

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

Link to comment
Share on other sites

Criei uma função semelhante que adiciona espaços e que resolveu meu problema

function CompletaString(texto, Caractere: string; Tamanho: Integer): string;
begin
  Result := Copy(texto, 1, Tamanho) + Repl(Caractere, (Tamanho - Length(texto)));
end;

E uso da seguinte forma

Add(CompletaString(cdsGerencialFPFORMA.AsString, '.', 30) + ': ' + FormatFloat('R$ #0.00', cdsGerencialFPVALOR.AsFloat));

o resultado seria:

(Exemplo)

Dinheiro......................: R$ 10,00

Cartão........................: R$ 5,00

Link to comment
Share on other sites

  • 3 years later...
Em 16/10/2015 at 18:53, FSoftware disse:

Está dando erro em Repl, como posso reslver?

 

Criei uma função semelhante que adiciona espaços e que resolveu meu problema


function CompletaString(texto, Caractere: string; Tamanho: Integer): string;
begin
  Result := Copy(texto, 1, Tamanho) + Repl(Caractere, (Tamanho - Length(texto)));
end;

E uso da seguinte forma


Add(CompletaString(cdsGerencialFPFORMA.AsString, '.', 30) + ': ' + FormatFloat('R$ #0.00', cdsGerencialFPVALOR.AsFloat));

o resultado seria:

(Exemplo)

Dinheiro......................: R$ 10,00

Cartão........................: R$ 5,00

 

Link to comment
Share on other sites

  • Este tópico foi criado há 1905 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.