Texto em negrito com componente PosPrinter

[LogProgramador]

Olá, bom dia

Estou fazendo a impressão de uma venda naquelas impressoras não fiscais. Está imprimindo corretamente, porém preciso fazer um formatação no texto.
Preciso deixá-lo em negrito.

Utilizo uma StringList e adicionado as informações nela.

TexToImprimir.Add('Valor Total');

Este valor total precisa ficar em negrito. 

Eu fiz da seguinte maneira abaixo e ficou, porém todo o resto que vem depois de 'Valor Total' também fica em negrito, é como se o negrito começasse e não parasse mais.

  TextoImprimir.Add( #27 + #71);
  TextoImprimir.Add('Valor Total');

Já tentei de várias maneiras, porém o negrito continua, Alterei os valores mas não dá também.

TextoImprimir.Add( #27 + #71);
TextoImprimir.Add('Começo');
TextoImprimir.Add( #27 + #71);

Se alguém souber alguma maneira que posso me ajudar, fico grato.

Att,

[Sérgio Assunção]

Em 18/07/2016 at 10:19, LogProgramador disse:

Olá, bom dia

Estou fazendo a impressão de uma venda naquelas impressoras não fiscais. Está imprimindo corretamente, porém preciso fazer um formatação no texto.
Preciso deixá-lo em negrito.

Utilizo uma StringList e adicionado as informações nela.

TexToImprimir.Add('Valor Total');

Este valor total precisa ficar em negrito. 

Eu fiz da seguinte maneira abaixo e ficou, porém todo o resto que vem depois de 'Valor Total' também fica em negrito, é como se o negrito começasse e não parasse mais.

  TextoImprimir.Add( #27 + #71);
  TextoImprimir.Add('Valor Total');

Já tentei de várias maneiras, porém o negrito continua, Alterei os valores mas não dá também.

TextoImprimir.Add( #27 + #71);
TextoImprimir.Add('Começo');
TextoImprimir.Add( #27 + #71);

Se alguém souber alguma maneira que posso me ajudar, fico grato.

Att,

Tente algo como:
TextoImprimir.Add('<n>Valor Total</n>');

[LogProgramador]

14 horas atrás, Sérgio Assunção disse:

Tente algo como:
TextoImprimir.Add('<n>Valor Total</n>');

Obrigado pelo retorno.

Já tentei desta maneira também, porém sem sucesso.

TextoImprimir.Add('<n>Negrito</n>');
TextoImprimir.Add('<b>Negrito</b>');

Grato

Editado 20 Julho, 2016 por LogProgramador

[Sérgio Assunção]

O modelo da impressora está correto ? De que forma você está passando essa StringList para o componente ? Veja o exemplo PosPrinterTeste.exe e faça os testes com ele.

[LogProgramador]

Eu esqueci de mencionar o modelo da impressora. É a ppTexto. Para a Bematech já consegui.

Mas já consegui resolver com a ppTexto também

TextoImprimir.Add( char(27) + char(71)); //adiciona uma linha para Iniciar o negrito
TextoImprimir.Add('VALOR TOTAL');
TextoImprimir.Add( char(27) + char(71) + char(70)); //Adiciona uma linha para Finalizar o negrito

Dessa maneira, 'VALOR TOTAL' ficará em negrito. O problema é que terá uma linha antes e depois dele.

Poderia deixar tudo junto da seguinte maneira:

TextoImprimir.Add( char(27) + char(71) + 'VALOR TOTAL' + char(27) + char(71) + char(70));

Acontece que não dá certo, não sei o motivo. 

Para dar certo eu fiz da seguinte maneira:

Criei um método que retorna uma string.

function  textoNegritoModoTexto(Texto:string):string;
var
  textoAux : string;
begin
  textoAux := '';
  texto := 'A' + texto;                                  
  textoAux := char(27) + char(71);                       //Inicia o negrito
  textoAux := textoAux + Texto;
  textoAux := textoAux + char(27) + char(71) + char(70); //Finaliza o negrito
  result := textoAux;
end;

Note-se que há um 'A' sendo concatenado, fazendo alguns teste ele foi necessário, se retirá-lo não sairá negrito. E ele não irá aparecer no texto, ele é deletado.
Não sei o motivo, mas dessa maneira está funcionando.