FORMATAR TEXTO

WILSONJOSE 13/04/2015 21:45:08
#445892
Olá, alguém poderia me dar uma dica de como posso formatar o texto abaixo em uma impressão(impressora de 80 colunas), seria o rodapé de um cupom. Estou utilizando PRINT. Desde já agradeço

Dinheiro R$ 10,00
Cartao de Credito R$ 100,00
Desconto R$ - 3,00
Total R$ 107,00
SINCLAIR 13/04/2015 22:28:14
#445894
Colega,

Você poderá usar algo como:

Printer.print [Ô]Dinheiro[Ô] & space(40-len([Ô]Dinheiro[Ô])) & [Ô]R$ 10,00[Ô]

Substituindo [Ô]Dinheiro[Ô] (se quiser) por conteúdo de uma caixa de texto (Text1.text, por exemplo).

Mas ao usar o objeto Printer, você precisa usar fontes cujos caracteres tenham largura fixa, como Courier New, por exemplo. Fontes como Arial tem largura diferente para letras (A e I por exemplo). Já em courier new as vogais A e I teriam a mesma largura e o alinhamento sempre daria certo.

Tudo de bom.
LUIZCOMINO 14/04/2015 11:35:29
#445905
Crie variáveis fixas exemplo

Dim Coluna as string * 20
Dim Valor    as string * 20

lset Coluna=[Ô]Dinheiro[Ô]
rset Valor=[Ô]R$10,00[Ô]

msgbox Coluna & Valor



teste ai!
Tópico encerrado , respostas não são mais permitidas
Voltar