LogProgramador
-
Total de ítens
79 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por 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. -
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
-
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,
Altura da linha de produto na impressão do Danfe
em ACBrNFe
Postado · Editado por LogProgramador
Faltou o agradecimento.
Olá Pessoal,
No Danfe, nas linhas onde saem os produtos, a altura dela está muito baixo, não mostra a descrição dos produtos corretamente.
O estranho é que não passou por alteração os fontes e é somente em um cliente.
No modo paisagem ele sai correto:
Mas no modo retrato não:
Utilizo o Delphi 7 e no componente TAcbrNfeDanfeRl a propriedade da linha está 30
Desde já, obrigado!