LogProgramador

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!

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.

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,