Se alguma pergunta ou resposta lhe foi útil, não deixe de dar seu voto positivo!

Tamanho da fonte FwMsPrinter

Boa tarde pessoal!

Temos uma rotina de impressão de rótulos em formato A3 que usa a classe FwMsPrinter.

Criamos uma tabela que contém uma matriz de impressão, com campos, tamanho de fonte, posição e etc.

Quando um dado for maior que o espaço reservado para impressão do mesmo, nossa ideia é que o sistema vá diminuindo a fonte até que a informação caiba, sem perda de dados.

Pelo GetTextWidth consigo saber o tamanho que um texto vai ocupar de acordo com a fonte passada.

Porém, como calcular corretamente a largura do espaço para saber se o texto cabe (na linha, não podemos quebrar em mais de uma linha a informação) ou precisa ter sua fonte reduzida? Temos a largura dos componentes em centímetros.

Por exemplo: tenho um espaço de 15 centímetros para imprimir a informação "ESTADOS UNIDOS / UNITED STATES" iniciando a fonte em arial de 32:

Alguém tem alguma dica para trabalhar com esses valores?

Muito obrigada!

fwmsprinter

criado 20 de Mar de 2020
Mary Christina Hergert
100 pontos
editado 20 de Mar de 2020

0

Boa tarde Mary, o problema seria que não foi possível imprimir o valor completo "ESTADOS UNIDOS / UNITED STATES"? Consegue colocar um POC dessa situação?
— Daniel Mendes 20 de Mar de 2020

0

Bom dia Daniel!

Na realidade, o problema é como o Tiago comentou abaixo: estou tentando analisar o quanto determinada fonte vai ocupar para impressão e o quanto tenho de espaço disponível para saber se imprimo com a fonte pré-determinada ou vou diminuindo a fonte até caber.. rs
— Mary Christina Hergert 23 de Mar de 2020

Anexos

Capturar.PNG

Você vai ver essas setas em qualquer página de pergunta. Com elas, você pode dizer se uma pergunta ou uma resposta foram relevantes ou não.
Edite sua pergunta ou resposta caso queira alterar ou adicionar detalhes.
Caso haja alguma dúvida sobre a pergunta, adicione um comentário. O espaço de respostas deve ser utilizado apenas para responder a pergunta.
Se o autor da pergunta marcar uma resposta como solucionada, esta marca aparecerá.
Clique aqui para mais detalhes sobre o funcionamento do TOTVS DevForum!

1 resposta

up 1 down
Olá Mary,

Não sei se entendi corretamente o problema, mas poderia fazer algo como:
```
cTexto      := "ESTADOS UNIDOS / UNITED STATES"
nFonSz      := 32    // Tamanho inicial da fonte
nMaxWidTxt  := 1500  // Necessário verificar se o retorno de GetTextWidth é em pixel ou mm para colocar o valor correto                                                                        

oFont  := TFont():New("Courier New",, nFonSz,, .T.,,,, .T., .F.))

// Reduz a fonte até caber no espaço
While ( oPrint:GetTextWidth(cTexto, oFont) > nMaxWidTxt ) .And. nFonSz > 0
    nFonSz -= 1
    oFont  := TFont():New("Courier New",, nFonSz,, .T.,,,, .T., .F.))
EndDo
```
Não é muito eficiente do ponto de vista de performance, mas pode resolver o problema.

Espero que lhe ajude!

Tiago Beraldi

Fone.....: +55 11 99493-5465

Email....: tiago.beraldi@gtin.inf.br

LinkedIn.: linkedin/in/tiagoberaldi

Website..: https://gtin.inf.br/
- editar
- x
  
  grosseiro ou ofensivo pouco construtivo obsoleto outro...
  Motivo
- criado 22 de Mar de 2020
  Tiago Beraldi
  172 pontos
- 0
  
  Bom dia Tiago!
  
  É isso mesmo que estou fazendo, reduzindo de 1 em 1 para chegar a uma fonte que caiba no espaço.
  
  O problema está em converter os 15 cm que tenho disponível para pixels para poder fazer a comparação.
  
  No seu exemplo, para preencher a nMaxWidTxt.
  
  Porque o tamanho máximo também dependeria da fonte correto?
  — Mary Christina Hergert 23 de Mar de 2020
Adicionar comentário

Caracteres restantes: 600
Quero acompanhar este tópico via email.

Comentário
Utilize formatação mini-Markdown: [link](http://exemplo.com) _italico_ **negrito** `codigo`.
Comentarios devem ter, no maximo, 600 caracteres. Se achar necessario, utilize links em vez de copiar código ou ainda edite sua pergunta/resposta para colocar mais informações

Tamanho da fonte FwMsPrinter

Comentário

1 resposta

Tiago Beraldi

Comentário

Não é a resposta que estava procurando? Procure outras perguntas com as tags fwmsprinter ou faça a sua própria pergunta.