Alinhar à esquerda e à direita na mesma linha

[FSoftware]

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?

[Daniel Simoes]

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

[FSoftware]

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

[Alessandro Assis]

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

 

[[email protected]]

Em 04/07/2019 at 09:10, Alessandro Assis disse:

 

como foi resolvido substitui pelo copy?

estou com o mesmo problema delphi não reconhece, Repl

Repl(Caractere, (Tamanho - Length(texto)

[BigWings]

14 horas atrás, [email protected] disse:

como foi resolvido substitui pelo copy?

estou com o mesmo problema delphi não reconhece, Repl

Repl(Caractere, (Tamanho - Length(texto)

Essa função não é nativa do Delphi.

Use StringOfChar().