NEGRITO EM LX300 COM PRINT

HELIO.COSTA 11/12/2006 16:58:32
#189356
Boa terde a todos,
Uso o VB6 com uma impressora Epson LX300.
Preciso imprimir em negrito com fonte pequena, procurei no forum mas nao achei, se alguem puder ajudar agradeco.
CLAUDINEIPF 11/12/2006 17:17:58
#189362
print.fontname="NomeDeSuaFonte"
print.fontsize=8 'tamanho da fonte
print.Fontbold=true 'imprimi em negrito
print "Exemplo de impressão em negrito"
print.fontbold=false 'tira o negrito
print.fontitalic=true 'imprimi em italico
print "Exemplo de impressão em itálico"
print.fontitalic=false 'tira o itálico
print.enddoc

Tem umas apostilas por aki mesmo do objeto print, dá uma procurada.
HELIO.COSTA 11/12/2006 17:37:20
#189366
Desta forma seria com o objeto Printer, e nao estou utilizando o obejto printer e sim print (impressao dereto na lpt1).
Mas agradece assim mesmo.
LEANDRO.LUIZ 11/12/2006 21:53:16
#189400 Resposta escolhida
Acho que é isso que vc precisa...


Recurso aplicado Código para ativar Código para desativar

Condensado chr$(27)&chr(15) chr(8)
Expandido chr$(27)&chr(14) chr$(20)
Negrito chr$(27)&chr(69) chr$(27)&chr(70)
Italico chr$(27)&chr(52) chr$(27)&chr(53)
Avanço de linha e retorno de carro chr$(10)&chr(13) não há
Avanço de página chr$(12) não há

ex:

print #1, chr$(27)&chr(69)  'ativa negito
print #1, "Imprime em negrito."
print #1, chr$(27)&chr(70)  'Desativa negito
HELIO.COSTA 12/12/2006 07:50:50
#189447
Exatamente isto Leandro, muito obrigado.
Tópico encerrado , respostas não são mais permitidas
Voltar