ALTERAR FONTE USANDO PRINT

EMANUEL 07/10/2010 13:56:12
#354621
Pessoal, Boa tarde!

Utilizo o PRINT conforme um pequeno exemplo abaixo, no qual funciona perfeitamente

Open [Ô]COM3[Ô] For Output As #1

Print #1, [Ô]------------------------------------------------[Ô]; Chr$(&HA);
Print #1, [Ô] P I Z Z A R I A[Ô]; Chr$(&HA);
Print #1, [Ô] D E L I V E R Y[Ô]; Chr$(&HA);
Print #1, [Ô]------------------------------------------------[Ô]; Chr$(&HA);

Close #1


minha duvida é:
Como eu poderia formatar a fonte usando o PRINT? tipo: Aumentar, Dimuir , Negrito.. etc...

Estou utilizando uma EPSON LX-300

Obrigado,
Emanuel
ACG1574 07/10/2010 14:37:59
#354626
emanuel no manual da impressora tem todos os comandos, chr(algumacoisa), é só pesquisar no manual, eu nao tenho o manual aqui,mas sei que no manual tem.
NLSOLUCOES 07/10/2010 15:22:42
#354639
Resposta escolhida

Só tem como se for pelo código da impressora matricial no caso Epson.

De uma olhada neste link http://www.macoratti.net/printer.htm

[]'s
EXPERT 08/10/2010 09:35:15
#354680
Dá uma olhada aqui

http://caclipperwebsite.com/todos/node/impressoras#CE

Nesse tem vários tipos de fontes disponíveis para várias impressoras ...

FICA COM DEUS ... FORTE ABRAÇO
MARCELO.TREZE 09/10/2010 21:16:21
#354796
Bom eu não testei mas olhando no manual e lendo alguns tópico conclui que:

no manual da EPSON os comandos são desciminados da seguinte maneira:

Citação:

Overall printing style

ASCII Dec. Hex. Description

ESC x n 120 78 Select NLQ or Draft
n = 1: NLQ
0: Draft

ESC k n 107 6B Select NLQ Font
n = 0: Roman
1: Sans Serif

ESC ! n 33 21 Master Select

To find the value of n, add together
the numbers of the the typestyles you
want to combine from the list below:

n = 0: 10 cpi 16: Double-Strike
1: 12 cpi 32: Double-Width
4: Condensed 64: Italic
8: Emphasized 128: Underline




baseado nas informações acima, bastaria você informar o o código ASC de cada função

exemplo

para definir font Sans Serif

ESC k 1

ESC = CHR(69)
k = CHR(107)
1 = CHR(49)

ou seja

Print #1, Chr(69);Chr(107);Chr(49)
Print #1,[Ô]teste[Ô]


bom veja se funciona e poste caso positivo

Tópico encerrado , respostas não são mais permitidas